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The  Squad  Weapons  Analytical  Trainer  (SWAT)  Is  an  electro-optic  based , 
microcomputer  controlled,  training  device  that  enables  tactical  infantry 
weapons  training  with  a  M-16  rifle,  under  a  simulated  high  stress  battle 
field  environment. 
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SUMMARY 

The  Squad  Weapons  Analytical  Trainer  (SWAT),  is  an  electro-optic 
based,  microcomputer  controlled,  training  device  that  enables  tactical 
infantry  weapons  training  with  an  M-16  rifle  and  16mm  motion  picture 
projectors  which  simulate  a  high  stress  battlefield  environment.  In  a 
short  period  of  time  a  trainee  can  be  subjected  to  a  large  variety  of 
combat  situations  where  each  trainee's  performance  is  analyzed  in  real¬ 
time  and  immediate  feedback  is  given  to  both  the  trainees  and  instruc¬ 
tor.  Combat  scenarios  can  be  changed  to  fit  any  potential  battlefield 
requirement. 

Prototype  models  were  constructed  by  the  Research  and  Technology 
Department,  NTEC,  Orlando,  Florida  for  both  PM  TRADE  and  the  U.S.  Marine 
Corps.  These  models  were  successfully  tested  by  the  U.S.  Army  Infantry 
Board  (USAIB)  for  the  Directorate  of  Training  Developments,  U.S.  Army 
Infantry  School,  Fort  Benning,  Georgia  and  at  Camp  Lejeune,  North  Caro¬ 
lina  by  the  U.S.  Marine  Corps.  It  was  stated  that  the  tests  did  give 
some  evidence  of  the  SWAT  system's  potential  for  training  transfer  (Ref. 
9).  FurKtjermore,  enlisted  men,  snipers  and  a  variety  of  General,  Field 
and  Company  grade  officers  who  fired  and  observed  the  SWAT  stated  that 
it  was  a  valuable  training  tool  (Ref.  8). 


PM  TRADE  and  USMC  sponsored  work  is  continuing  on  this  program  to 
develop  the  capability  to  add  other  weapons  i.e..  Dragon,  LAW,  M-60 
machine  gun,  etc. 

The  PM  TRADE  project  manager,  was  Dr.  B.  Rashis.  The  authors  wish 
to  thank  him  for  the  helpful  assistance  he  gave  during  this  program. 
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SECTION  I 


INTRODUCTION 

The  Squad  Weapons  Analytical  Trainer  (SWAT)  is  an  electro-optic  based, 
microcomputer  controlled,  training  device  that  enables  tactical  infantry 
weapons  training  with  an  M-16  rifle,  under  a  simulated  high  stress  battle¬ 
field  environment.  In  a  short  period  of  time  a  trainee  can  be  subjected  to 
a  large  variety  of  combat  situations  where  each  trainee's  performance  is 
analyzed  in  realtime,  and  immediate  feedback  is  given  to  both  the  trainees 
and  instructor.  Combat  scenarios  can  be  changed  to  fit  any  potential  bat¬ 
tlefield  requirement.  An  artist's  concept  of  the  trainer  is  shown  in 
Figure  1-1.  —  — 
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Figure  1-1.  Artist's  Concept 

This  training  device  provides  the  trainees  or  instructor  the  follow¬ 
ing  simulated  weapons  effects  and  feedback  information: 

•  Weapon  recoil 

t  Weapon  bang 

•  Magazine  action 

•  Automatic  or  single  shot  simulation 


Lead  and  elevation  if  applicable,  is  programmed  in  the  system 

Real-time  individual  audio  scoring  feedback,  using  computer  gen 
erated  voice,  via  a  headset 

Trainee  feedback  data  displayed  in  columns  on  TV  type  monitor 
for  instructor  observation 

Reaction  time 

Movement  of  weapon  relative  to  correct  kill  zone  is  observed 
by  instructor  and  recorded  for  playback. 

Lowest  performer  indicated  to  instructor 

Identification  of  trainee  responsible  for  shooting  with  no  tar¬ 
get  present 

Built-in  self-check  features 
Score  determined 
Hardcopy  of  scoring  results 


SECTION  II 


SYSTEM  DESCRIPTION 

This  section  of  the  report  describes  the  system.  Details  of  the 
system  design  are  included  in  Section  III. 

The  system  utilizes  two  motion  picture  projectors:  a  visual  and  an 
infrared  (IR)  target  spot  projector  (see  Figure  I I -1 ) .  The  visual  pro¬ 
jector  displays  the  battle  scene  including  the  visual  targets.  The  infra¬ 
red  projector  provides  invisible  infrared  target  areas  at  which  the  weapon 
must  be  aimed  in  order  to  score  a  hit.  Lead  is  programmed  into  the  infra¬ 
red  target  film,  which  the  weapon  receiver  detects,  requiring  the  trainee 
to  lead  the  target  as  necessary.  Figure  I I -1  shows  the  visual  target  on 
the  left  and  the  infrared  target  on  the  right  indicating  that  the  target 
is  moving  to  the  right. 

Each  trainee  has  a  simulated  M-16  rifle  with  an  attached  infrared  (IR) 
receiver.  The  IR  detector  is  a  four-quadrant  photodiode.  The  four-quad¬ 
rant  target  information  and  microcomputer  logic  determines  kills,  eight 
areas  of  near  misses,  and  total  misses.  The  regions  of  near  miss  include 
high,  low,  left,  right,  high  right,  high  left,  low  left,  and  low  right. 
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Figure  II-l.  System  Block  Diagram 
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When  the  trainee  fires  the  weapon  he  hears  a  simulated  bang  and  feels 
a  recoil.  Recoil  is  generated  by  a  short  pulse  of  air  released  near  the 
front  sight  which  drives  the  weapon  high  and  to  the  right.  An  8080  based 
microcomputer  determines  where  the  round  would  have  hit  using  the  detector’s 
quadrant  data  and  supplies  this  information  to  both  a  computer  generated 
voice  unit  and  a  CRT  display  on  the  instructor's  console.  The  computer 
voice  unit  drives  both  the  trainee  and  instructor  headsets.  When  a  target 
appears  on  the  screen,  the  IR  projector  outputs  a  target  present  signal 
from  the  magnetic  audio  stripe  on  the  film.  This  signal  starts  a  clock  in 
the  microcomputer  which  measures  the  time  until  the  trainee  fires,  or  effec¬ 
tively  his  reaction  time.  The  target  present  signal  is  also  used  to  deter¬ 
mine  the  number  of  targets  that  appeared,  targets  ignored,  targets  shot  at 
and  if  the  trainee  fired  when  no  target  was  present.  Trainee  results  are 
continuously  displayed  in  columns  on  a  CRT  display  on  the  instructor's  sta¬ 
tion.  At  the  completion  of  the  exercise,  the  results,  analyzes  and  response 
time  are  printed  by  a  terminal  at  the  instructor's  station. 

Distribution  of  fire  can  be  monitored  using  a  gallium  arsenide  laser 
infrared  source  located  in  the  flash  hider  part  of  the  rifle.  The  projected 
IR  laser  spot  is  invisible  to  the  trainee  but  is  detected  by  an  infrared 
television  camera  and  displayed  by  a  CRT  located  on  the  instructor's  console 
as  shown  in  Figure  1 1-1.  When  the  rifle  is  fired  the  IR  spot  projector 
illuminates  the  screen  with  a  small  IR  spot.  If  the  instructor  wants  to  con¬ 
tinuously  monitor  rifle  motion  the  IR  aiming  spot  is  left  on  continuously 
and  the  laser  spot  brightens  when  the  trainee  shoots.  The  TV  camera 
data  can  also  be  recorded  for  playback  during  debrief. 

Figure  1 1 -2  shows  the  rifle  electronics  and  two  projected  targets. 
Discrimination  of  the  infrared  targets  is  enhanced  by  projecting  the  IR 
targets  at  frequencies  different  from  the  visual  scene  signals  and  amplify¬ 
ing  the  infrared  targets.  The  motion  picture  projectors  have  also  been 
modified  to  incorporate  hot  and  cold  mirrors,  whose  function  will  be  de¬ 
scribed. 


Figure  1 1-2.  Rifle  Electronics  Block  Diagram 


The  visual  projector  contains  a  hot  mirror.  This  multilayer  dielectric 
mirror  reflects  or  removes  most  of  the  infrared  above  750  nanometer  from 
the  visual  scene.  The  infrared  projector  contains  a  cold  mirror.  The  cold 
mirror  reflects  the  visual  energy  and  passes  the  infrared  energy  above  750 
nanometers.  This  allows  a  weapon  equipped  with  an  infrared  receiver  to  ig¬ 
nore  the  visual  data  and  obtain  its  target  data  from  the  infrared  projector. 

The  S/N  ratio  of  the  system  is  further  improved  by  using  two  different 
projector  chopper  frequencies.  In  the  visual  projector  the  chopper  is  a 
two  bladed  equally  divided  shutter.  In  the  IR  projector  the  chopper  is  a 
four  bladed  shutter.  The  visual  scene  is  chopped  or  shuttered  at  a  frequency 
of  48  Hz;  the  IR  data  is  shuttered  at  a  frequency  of  96  Hz.  By  using  two 
different  chopping  frequencies  active  filters  in  the  weapons  IR  receiver 
can  be  tuned  to  detect  the  infrared  target  spot  and  ignore  the  visual  bat¬ 
tle  scene.  The  projectors  are  frame  locked  together  synchronously. 

The  rifle  uses  an  IR  detector  consisting  of  a  lens  and  a  four-quadrant 
photo  diode  detector  to  detect  infrared  targets.  An  infrared  filter  is 
utilized  in  the  weapon  optical  system  to  reduce  the  visual  signal  effect  on 
the  photo  detector.  The  photo  detector  signals  are  amplified  by  two  bi-FET 
operational  amplifiers.  A  voltage  comparator  sets  a  threshold  to  establish 
a  digital  "one"  or  "zero".  The  voltage  reference  level  of  the  comparator 
can  be  set  to  adjust  the  level  of  difficulty.  The  voltage  comparator  data 
is  latched  and  delivered  as  input  to  the  microcomputer  system  for  data  anal¬ 
ysis,  display  and  feedback. 

The  rifle  can  operate  in  either  a  single-shot  or  automatic  mode  and 
requires  the  trainee  to  reload  after  he  has  fired  thirty  rounds.  The  rifle's 
simulated  magazine  contains  a  capacitor.  When  the  magazine  is  inserted  into 
the  rifle  this  internal  capacitor  is  discharged,  which  resets  a  counter. 

Bang  simulation  is  achieved  by  filtering  a  noise  source  and  then  pro¬ 
ducing  a  noise  envelope  with  a  sharp  rise  time  and  exponential  decay. 

The  training  rifle  is  shown  in  Figure  1 1 -3.  The  four-quadrant  detector 
is  located  on  top  of  the  barrel  and  the  flash  hider  contains  a  gallium  ar¬ 
senide  IR  laser.  The  rifle  is  a  replica  but  contains  real  sights  that  are 
adjustable.  The  plastic  hose  shown  attached  to  the  rifle.  Figure  I I -3,  is 
used  to  carry  the  air  for  recoil. 

The  instructor's  console  is  shown  in  Figure  I I -4 .  The  right  hand  CRT 
displays  the  verbal  data  transmitted  to  each  trainee  in  five  columns.  The 
lowest  score  is  automatically  flagged  by  a  LED  under  the  applicable  trainees 
column.  This  alerts  the  instructor  so  he  can  more  closely  observe  that 
trainee.  The  left  hand  side  of  the  console  contains  a  CRT  display  used  to 
monitor  the  weapon  motion.  Communication  to  the  microcomputer  is  via  a 
terminal  shown  in  front  of  the  instructor.  See  Appendix  E  for  description 
of  the  switches  on  the  console. 


Figure  II-3.  M-16  Training  Rifle 


Fl^ire  II-4.  Instructor's  Console 
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Figure  II-5.  Trainees  Firing  at  Screen 


Figure  1 1 -5  shows  the  trainees  firing  at  the  screen.  Note  each 
trainee  wears  a  headset  for  individual  feedback. 

Figure  1 1-6  shows  the  projectors.  Loopers  (a  closed-loop  film  strip) 
are  used  so  rewinding  is  not  necessary.  An  auto-stop/auto-al ign  feature 
is  visible  near  the  loopers. 

The  computer  voice  system  is  a  solid  state  communications  processor. 
It  operates  as  a  standard  data  terminal  to  the  host  80/20  microcomputer 
system.  The  vocabulary  has  been  digitized  and  stored  in  nonvolatile  mem¬ 
ory  (PROM).  The  system  contains  thirty-two  individually  addressable  words 
and  five  independent  output  channels.  Thus,  the  computer  voice  system  can 
talk  to  any  or  all  of  the  five  trainees  while  saying  the  same  or  different 
words  or  phrases.  Each  trainee  wears  a  headset  so  he  hears  only  the  feed¬ 
back  applicable  to  his  performance. 

The  system  is  controlled  by  a  modified  Intel  80/20  microcomputer  sys¬ 
tem. 

Section  III,  next,  describes  the  system  design. 
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SECTION  III 
SYSTEM  DESIGN 

A.  PROJECTORS 

The  motion  picture  projectors  are  two  Hokuskin,  16mm  sound  projectors 
equipped  for  frame- for- frame  sync.  The  lamp  is  a  500  watt  Xenon-arc,  type 
KXL-500H.  One  projector  is  used  as  an  IR  target  spot  projector.  The  IR 
projector  uses  a  cold  mirror  to  remove  the  visual  energy,  Melles  Griot, 
03MHGD07.  The  transmittance  of  the  hot  and  cold  mirrors  are  shown  in  Fig¬ 
ure  III-l. 

Loopers  are  utilized  instead  of  reels  to  eliminate  the_necessity  of 
rewinding  the film.  ~ 
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Figure  III-l .  Transmittance  of  Hot  and  Cold  Mirrors 

The  projectors  are  equipped  for  either  optical  or  magnetic  sound  re¬ 
production.  Sound  for  the  battle  scene  is  recorded  for  optical  pickup  on 
the  visual  projector. 

Target  present  signals  are  recorded  on  the  magnetic  stripe  of  the  IR 
film.  The  target  present  signal  is  a  1  KHz  audio  tone,  which  is  decoded 
by  an  electronic  tone  decoder,  Figure  1 1 1-2. 

The  battle  scene  film  was  both  taken  and  projected  using  a  25mm  focal 
length  lens  to  minimize  perspective  distortion. 

The  IR  projector  has  a  modified  four  bladed  shutter  which  chops  the 
IR  data  at  a  frequency  of  96  Hz.  The  visual  projector  has  a  conventional 
two  bladed  chopper  which  chops  the  visual  scene  at  48  Hz. 


Figure  III-2.  Target  Present  Decoder 
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The  projector  are  equipped  with  an  auto-stop  feature  which  allows 
the  film  to  be  stopped  at  any  desired  location  by  simply  placing  a  foil 
metal  strip  on  the  desired  stop  location. 

The  screen  is  silver  matte,  9  ft  x  12  ft  overall. 

B.  RIFLE  ELECTRONICS 

The  rifle  electronics  detect  the  IR  target  spot,  amplifies,  discrim¬ 
inates  and  provides  digital  data  to  the  8080  basqd  microcomputer. 

The  detector  optics  is  a  single  element  double  convex  lens,  with  a 
diameter  of  29mm  and  focal  length  of  114mm. 

The  IR  detector  is  a  four-quadrant  silicon  photodiode.  This  device 
consists  of  four  discrete  elements  on  a  single  substrate  with  an  active 
output  lead  from  each  element.  When  the  weapon  is  aimed  properly  the  in¬ 
frared  target  spot  is  centered  on  the  detector  and  the  output  current  from 
each  quadrant  is  equal.  As  the  rifle  is  moved  the  currents  change  as  a 
function  of  the  location  of  the  infrared  target  spot  on  the  detector.  Im¬ 
balance  in  the  current  indicates  off-center  position.  The  detector  has  an 
active  area  of  0.05"  x  0.05"  per  element  with  a  gap  of  0.005"  between  ele¬ 
ments.  The  detector  physical  geometry  and  spectral  response  is  shown  in 
Figure  I I 1-3 . 


Figure  I I 1-3.  Photo  Detector  Spectral  Response  and  Geometry 

The  field  of  view  of  the  IR  detector  is  approximately  seven  inches  on 
the  screen. 

The  currents  from  the  diode  are  input  to  an  operational  amplifier, 
TL082.  The  photo  diode  detector  is  basically  a  current  source  with  an 
output  impedance  which  is  very  large.  The  first  stage  of  the  current-to- 
voltage  converter  presents  almost  zero  load  impedance  to  ground  because 
the  inverting  input  appears  as  a  virtual  ground.  The  input  current  from 
the  diode  flows  through  the  two  Megohm  feedback  resistor,  generating  an 
output  voltage. 
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A  separate  channel  is  used  for  each  of  the  four  quadrants.  The  out¬ 
put  from  the  current- to- voltage  amplifier  goes  to  a  noninverting  amplifier 
with  a  gain  of  23.  This  stage  is  also  part  of  the  TL082.  The  electronics 
described  above  is  located  on  Board  #1,  Pre-Amp.  (Figure  I I I -4 ) 

Input  signals  to  the  active  filter  are  48  Hz  from  the  visual  scene, 

96  Hz  from  the  IR  target  spot  and  any  extraneous  light.  The  active  filter 
is  used  to  pass  and  amplify  the  desired  IR  signal  at  96  Hz  and  reject  all 
other  signals. 

The  UAF  -  41  is  a  two  pole  active  filter.  It  uses  three  operational 
amplifiers  in  a  double  integrator  feedback  loop  to  generate  two  conjugate 
poles.  Location  of  the  poles  in  the  complex  plane,  and  thus  the  natural 
frequency  and  Q  are  determined  by  external  resistors. 

The  equivalent  configuration  of  this  band  pass  filter  is  shown  in  Fig 
ure  1 1 1-5.  The  filter  is  designed  for  a  96  Hz  center  frequency  with  both 
a  Q  and  gain  of  50. 
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Figure  III -5.  Bi-Quad  Active  Filter 

Both  the  active  filters  and  voltage  comparators  are  located  on  Board 
#2,  Figure  I I 1-6.  The  output  of  the  active  filter  is  a  sine  wave  with  a 
frequency  of  96  Hz.  The  output  sine  wave  goes  positive  and  negative  about 
a  zero  volt  reference  level.  This  output  is  clamped  and  fed  to  a  voltage 
comparator.  The  voltage  comparator  changes  the  analog  detector  signal  to 
a  digital  signal.  The  input  signal  level  for  a  one  or  zero  is  determined 


Figure  III-6.  Universal  Active  Filters  and  Voltage  Comparators  -  Board  #2 
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Board  #3 


by  a  resistor  or  reference  voltage  setting.  Each  of  the  four  voltage  com¬ 
parator  channels  has  its  own  reference  voltage  setting  resistor,  i.e.,  R33, 
R34,  R35,  and  R36.  The  reference  voltage  setting  controls  the  degree  of 
difficulty  in  hitting  a  target.  The  detector  signals  next  go  to  IC1,  a 
7408  AND  gate.  Board  #3,  Figure  I I 1-7.  If  the  trainee  pulls  the  rifle 
trigger  and  has  rounds  remaining  in  his  magazine,  the  HAND  gate  is  enabled 
by  an  input  from  Board  #4.  Board  #4  is  shown  in  Figure  III-8.  IC2  and 
IC3,  Board  #3  are  9024  JK  flip  flops  configured  as  latches.  Each  9024  has 
two  latches.  The  9024  is  reset  by  the  microprocessor  after  it  has  accepted 
the  four-quadrant  IR  target  spot  data.  IC4,  Board  #3  is  a  line  driver. 

Board  #5,  Figure  III -9,  is  connected  to  the  rifle  trigger.  IC1,  a 
5437,  containing  NAND  gates,  debounces  the  trigger  and  applies  5  volts  to 
IC3.  IC3,  a  timer,  provides  pulses  of  12  Hz,  which  is  the  firing  rate  of 
the  weapon.  A  one  shot  is  also  triggered  and  provides  a  single  pulse. 

The  output  of  Board  #5  is  determined  by  the  setting  of  the  single  or  auto 
fire  switch  on  the  simulated  weapon.  The  setting  of  auto  or  single  shot 
determines  which  gate  on  IC1  is  active.  If  the  trainee  is  in  auto  fire 
pulses  at  12  Hz  are  provided  Board  #2.  IC3  on  Board  #4  has  a  gate  which 
will  pass  the  signal  if  the  counters  IC1,  IC2  on  Board  #4  indicate  rounds 
are  left.  The  counter  enables  IC1  on  Board  #3  and  also  enables  the  data 
ready  pulse  provided  by  IC4  on  Board  H  to  the  microprocessor.  IC4  is  a 
one  shot  which  generates  a  10  Msec  data  ready  pulse  for  the  microprocessor 
to  indicate  data  is  available.  After  the  microprocessor  has  read  the  data 
it  resets  the  latches;  IC2  on  Board  #3. 


The  one  shot  IC6,  Board  #4,  Figure  I I I -8,  is  used  to  reset  the  counters 
The  dummy  magazine  contains  a  capacitor.  In  the  "loaded"  configuration  the 
capacitor  is  charged  to  5  volts.  The  magazines  are  easily  loaded  or  charged 
by  momentarily  inserting  them  into  a  charging  fixture. 


When  the  dummy  magazine  or  capcitor  is  inserted  in  the  rifle  it  dis¬ 
charges  through  R4,  providing  the  counter  reset  voltage.  The  magazine  is 
reloaded  by  charging  the  capacitor  in  the  magazine  to  5  volts. 


C.  COMPUTER  VOICE  AND  AUDIO  SYSTEM 


The  Computer  Voice  System  is  a  Business  Communicator  Model  LVM-70  manu¬ 
factured  by  V0TRAX,  the  Vocal  Interface  Division  of  Federal  Screw  Works, 

Troy,  Michigan.  The  LVM-70  was  designed  specifically  to  be  used  as  a  con¬ 
centrator  for  touch- tone  based  information  systems. 

Up  to  32  words  (16  seconds)  are  available  with  up  to  eight  audio  out¬ 
put  channels.  The  trainer  utilizes  an  output  channel  for  each  trainer. 

When  a  shot  is  fired  by  a  trainee  the  host  computer  (80/20)  decodes  the  in¬ 
coming  rifle  data  and  then  sends  three  bytes  of  serial  data  to  the  LVM-70 
specifying  a  start  word,  a  trainee  identification  word,  and  the  appropriate 
voice  response  code.  The  voice  output  line  for  each  trainee  is  routed  to 
the  trainees  audio  mixer/amplifier.  Board  #6,  Figure  III-10,  as  well  as  the 
instructor's  control  panel. 

The  LVM-70  voice  communicator  can  be  replaced  in  later  models  for  rough¬ 
ly  1/4  the  original  cost,  due  to  technological  advances. 
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Each  trainee's  audio  system  consists  of  two  stages  of  audio  amplifi¬ 
cation.  A  Texas  Instrument's  TL074  low  noise,  quad,  dual  operational  amp¬ 
lifier,  ICI,  is  used.  Consequently,  two  trainees  are  handled  by  a  single 
TL074  (Figure  III-10).  The  first  stage  of  amplification  is  primarily  an 
audio  mixer.  Five  independent  channels  are  mixed  into  one.  These  five 
channels  consist  of  the  computer  voice  feedback  system,  the  instructor  com¬ 
munication  line,  the  synthetic  rifle  bang,  coordinated  battlefield  sounds 
and  general  battlefield  environment  sounds.  The  instructor  uses  an  identi¬ 
cal  mixer/amplifier  channel  but  his  inputs  consist  of  the  various  computer 
voice  responses  to  the  trainees.  The  instructor  selects  which  trainee  he 
desires  to  hear  by  pushing  the  appropriate  switch  on  the  instructor  control 
panel . 

Each  of  the  five  inputs  to  the  mixer  stage  as  well  as  the  final  output 
stage  have  their  own  volume  control. 

D.  BANG  AND  RECOIL  SYSTEM 

1 .  BANG  SYSTEM 

An  electronic  bang  is  presented  to  the  trainee  via  his  headset  when  he 
has  fired  a  shot.  The  bang  board.  Board  #8,  Figure  III-ll,  produces  the 
synthetic  gunshot  sound  and  passes  this  sound  to  the  trainees  audio  mixer/ 
amplifier  Board  #6,  Figure  1 1 1 -1 0 .  The  bang  is  produced  by  generating  ran¬ 
dom  noise,  due  to  diode  D1  being  biased  near  its  breakdown  voltage,  and  then 
using  the  FET  to  generate  an  envelope  for  this  random  noise.  This  envelope 
consists  of  a  sharp  rise  time  and  an  exponential  decay  which  corresponds 
closely  to  a  gun  shot  noise  envelope.  Specifically,  the  diode  D1  produces 
random  noise  which  is  amplified  by  1/2  of  ICI,  a  dual  operational  amplifier. 
This  amplified  random  noise  is  presented  to  the  drain  of  the  FET.  The  FET 
does  not  pass  this  noise  until  its  gate  is  presented  the  sharp  rise  and  ex¬ 
ponential  decay  envelop  representing  an  actual  rifle  shot  sound  envelope. 

The  sharp  rise  of  voltage  on  the  gate  of  the  FET  is  produced  by  IC2  changing 
to  a  high  state;  5  volts.  When  IC2  changes  back  to  a  low  state,  0  volts, 
the  diode  D2  isolates  the  gate  of  the  FET  from  being  pulled  down  to  an  off 
state  and  allows  the  RC  network  consisting  of  R6,  R12,  and  C7  to  exponen¬ 
tially  decay  the  residual  voltage  thus  producing  decaying  gunshot  envelope 
of  noise.  The  source  of  the  FET  thus  produces  on  demand  random  filtered 
noise  within  an  envelope  resembling  a  gunshot  bang.  The  second  half  of  ICI, 
an  operational  amplifier,  produces  final  amplification  of  this  sound  before 
passing  the  output  to  the  students  audio  mixer/ampl ifier. 

2.  RECOIL  SYSTEM 

The  recoil  system  consists  of  three  major  parts:  air  hose,  recoil 
board,  and  the  air  valve. 

The  air  hose  follows  the  electrical  cable  up  to  the  rifle  and  into  the 
butt  of  the  weapon.  The  hose  is  a  lightweight,  nylon  reinforced,  dimention- 
ally  stable  air  line  hose.  After  entering  the  butt  of  the  rifle  it  runs 
forward  and  attaches  to  the  rifle  barrel.  The  barrel  is  plugged  at  the  tip 
end  and  an  outlet  orifice  has  been  drilled  on  the  bottom  of  the  barrel  near 
the  tip  end.  The  orifice  is  pointing  down  and  30  degrees  to  the  left  which 
produces  a  thrust  up  and  to  the  right  when  a  shot  is  fired. 
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The  recoil  circuit.  Board  #7,  consists  of  a  555  integrated  circuit 
timer,  IC2,  and  a  darlington  pair  transistor  driver  circuit  for  the  recoil 
air  valve.  The  555  timer  is  set  for  a  nominal  20-25  msec  duration.  The 
variable  resistor  R2  serves  to  regulate  the  timing  duration  (Figure  III-12). 

The  recoil  valve  is  a  pilot  operated  solenoid  valve.  Because  it  is 
pilot  operated,  the  on-off  rise  and  fall  times  for  actuation  are  very  short 
and  power  consumption  is  only  8.5  watts. 

E.  DISTRIBUTION  OF  FIRE  AND  WEAPON  MOVEMENT  MONITORING 

Distribution  of  fire  and  weapon  movement  can  be  monitored  and  recorded 
during  a  training  exercise  for  playback.  The  system  allows  the  instructor 
to  view  where  the  weapon  is  aimed  relative  to  the  IR  target  spot.  This  fea¬ 
ture  is  completely  independent  of  the  basic  system. 

An  IR  light  source  is  used  on  the  weapon.  The  infrared  light  source 
used  in  the  system  is  a  semiconductor,  gallium  arsenide  laser.  The  laser  is 
collimated  by  a  simple  piano  convex  lens.  The  laser  is  attached  where  the 
weapon  flash  hider  is  located.  If  the  instructor  wishes  to  view  the  loca¬ 
tion  of  the  trainees  weapon,  he  selects  the  laser  he  wants  turned  on  and 
holds  down  a  button  on  the  instructor's  console.  The  instructor  is  able  to 
view  both  the  projector  IR  target  and  laser  spot  from  the  selected  trainee's 
rifle.  This  information  is  detected  using  an  RCA  TC  1005/H01  low  bloom  sili¬ 
con  target  Vidicon  and  closed  circuit  video  equipment.  The  TV  display  tube 
is  located  in  the  instructor's  console  and  the  TV  camera  near  the  motion  pic¬ 
ture  projectors. 

The  laser  spot  brightness  seen  on  the  TV  is  a  function  of  the  pulse  re¬ 
petition  frequency  (prf)  of  the  gallium  arsenide  laser.  Two  modes  are  avail¬ 
able: 

•  Flash  only 

•  Track  plus  flash 

In  the  flash  mode  only,  a  single  flash  occurs  when  the  trainee  fires. 

In  the  track  and  flash  mode,  the' instructor  sees  a  point  of  laser  light  on 
the  screen  all  the  time,  which  moves  as  a  function  of  where  the  trainee  is 
pointing;  when  the  trainee  fires,  a  brighter  flash  occurs. 

Laser  energy  reflected  off  the  screen  is  eye  safe.  However,  the  trainee 
should  not  point  his  weapon  in  another  trainee's  eyes  as  eye  damage  can  occur 
from  looking  directly  into  the  laser  beam. 

The  laser  timing  signals  are  generated  using  Board  #10,  Figure  1 1 1-13. 
The  laser  pulser.  Board  #11,  is  shown  in  Figure  III-14. 

The  laser  pulser  uses  a  SCR,  GA201  to  discharge  capacitor  Cl.  Q1  is 
used  to  allow  rapid  recharge  of  Ql.  The  laser  is  a  5  watt  peak  power  laser 
with  a  nominal  50  nanosecond  pulse  width. 
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F.  RIFLE  MOCKUP 

The  rifle  mockup  is  manufactured  by  Replica  Models,  Inc.  It  is  not 
designed  to  accept  a  round  of  ammunition  and  cannot  be  converted  to  accept 
ammunition.  The  original  replicas  received  from  Replica  Models  have  been 
extensively  modified  to  perform  satisfactorily  as  a  trainer.  The  original 
barrel  plug  was  removed  and  moved  to  the  front  end  of  the  barrel  to  accom¬ 
modate  the  recoil.  A  recoil  orifice  was  then  machined  and  an  electronic 
board  was  installed  within  the  handguards.  To  accomodate  boresighting, 
the  original  molded-on  nonadjustable  front  and  rear  sights  were  replaced 
with  adjustable  front  and  rear  sights.  The  mode  selector  switch  was  modi¬ 
fied  to  reflect  the  real  M16E1  mode  positions;  the  trigger  mechanism  was 
modified  for  better  performance;  microswitches  for  the  trigger  and  mode 
selector  switch  were  installed;  and  magazine  sensing  contacts  were  in¬ 
stalled  for  reloading  simulation. 

An  optical  four-quadrant  detector  and  optics  are  mounted  above  the 
barrel  and  below  the  sights.  A  solid  state  laser  and  optics  for  point  of 
aim  information  has  been  inserted  in  the  flash  hider  position. 

Air  for  the  recoil  and  electronic  wiring  approach  the  rifle  from  the 
bottom  rear  of  the  butt  of  the  rifle.  The  true  weight  of  the  M16E1  was  re 
stored  by  removing  unused  mechanism  from  the  upper  receiver.  The  true  bal 
ance  was  maintained  through  equal  weight  additions,  i.e.,  the  detector/ 
laser  combination  at  the  front  end  of  the  rifle  offset  the  hose  and  elec¬ 
tronic  wire  harness  at  the  butt  end  of  the  rifle. 

Special  test  equipment  is  included  in  Appendix  B. 

G.  MICROCOMPUTER  CONTROL  SYSTEM 

The  8080  Microprocessor  Based  Control  System  performs  these  functions 

•  Interrogates  the  instructor  for  session  parameters 

•  Stores  session  parameters  for  final  hard  copy 

•  Determines  if  self-check  is  desired,  and  reacts  accordingly 

•  Initializes  peripheral  LSI  chips  and  zeros  memory  storage 

•  Inputs  rifle  data,  decodes  and  stores  it 

•  Measures  response  time  for  first  rifle  shot  at  new  target  for 
each  of  four  or  five  rifles 

t  Outputs  shot  results  to  audio  feedback  and  instructor's  CRT 

•  Identifies  shooter  making  most  errors  and  sends  the  identifica¬ 
tion  to  the  instructor's  console  "LEDS" 


Updates  shooter's  results  file 


•  Checks  for  session  end  and  terminates  the  data  collection  mode 
upon  the  instructor's  signal 

•  Computes  trainee's  ovarall  score 

•  Prints  trainee's  results  on  the  instructor's  electronic  data  ter¬ 
minal 

1.  SINGLE  BOARD  COMPUTER 

The  SWAT  System  is  controlled  by  a  modified  INTEL  80/20-4  Microcompu¬ 
ter  System,  Reference  6.  This  microcomputer  system,  which  is  based  on  the 
INTEL  8080  microprocessor,  includes  an  enclosure  with  front  panel  controls, 
power  supply,  cooling  fans,  and  a  card  cage  in  which  is  located  the  main 
80/20-4  board  as  well  as  the  interface  board  (IFB),  which  is  described  below. 

a.  80/20-4  MODIFICATIONS 

A  number  of  modifications  are  required  before  the  SBC  80/20-4  can 
be  used  in  UIWT/SWAT  Version  1.2.  These  are  detailed  below  with  page  iden¬ 
tifications  to  be  found  in  Reference  6  unless  otherwise  noted. 

(1)  Pull-up  resister  packs,  SBC-902,  page  2-5,  must  be  in¬ 
serted  in  socket  A5  and  A6  as  input  terminators  for  port  2  at  address  E6. 

These  terminators  were  supplied  with  the  80/20-4  systems  as  Beckman  part 
number  1899-747-0,  3000645-01. 

(2)  Insert  inverting  line  drivers,  either  #7437  or  #7400, 
in  sockets  A3,  A4,  A9  and  A10  for  output  ports  3  and  6  at  addresses  E6  and 
EA.  See  pages  2-4  and  4-24. 

(3)  Solder  a  jumper  between  J3-8  and  J3-10  using  the  solder 
points  on  the  rear  side  of  the  board.  This  connects  "Request  to  Send"  to 
"Clear  to  Send".  See  Table  2-5,  page  2-7. 

(4)  Wire  wrap  A  jumper  from  pin  1,  a  5  volt  source,  near 
J3  pin  #25  and  solder  it  to  a  through  hole  just  below  "C9"  between  AT 5  and 
A16  on  the  front  of  the  board.  This  should  put  5  volts  onto  J3-16  "REC 
LINE  SIG  DETECT"  which  goes  to  the  "DATA  CARRIER  DETECT"  of  the  743  TI  ter¬ 
minal.  Otherwise  the  terminal  will  not  function.  See  page  27  of  Reference  1. 

(5)  Change  the  wire  wrap  jumper  which  exists  between  pins 
141-142  just  above  A22,  the  8253,  to  a  jumper  between  pins  141-143.  This  is 
an  option  which  connects  the  clock  input  for  counter  1  of  the  8253  to  the 
output  of  counter  0.  See  page  4-21. 

(6)  Interconnect  wire  wrap  pins  11  and  12  near  the  upper 
right  hand  corner  of  the  board.  These  are  the  protect  and  signal  grounds 
for  the  TI  743  terminal.  See  page  27  of  Reference  1. 

(7)  Scratch  through  the  line  going  from  the  transmit  data 
(TXD),  pin  19  of  the  8251  USART,  to  the  SN75188  (MC1488)  line  driver.  Con¬ 
nect  the  8251  side  to  Jl-50  with  a  jumper  wire  and  connect  the  driver  side 
to  J2-50.  This  allows  the  interface  board  to  switch  the  serial  output  be¬ 
tween  the  VOTRAX  and  the  control  console. 
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(8)  Remove  the  jumper  from  wire  wrap  pins  52-53,  located  * 

just  below  the  left  part  of  the  leftmost  8255  and  put  a  jumper  between 

pins  51-52.  This  enables  port  1  as  an  input.  See  Figure  5-2  (sheet  4  of  5). 

Check  that  a  jumper  exists  between  pins  71-72  to  enable  port  4  as  an  output.  , 

(9)  Connect  the  80/20-4  front  panel  interrupt  switch  into 
the  interrupt  controller  as  interrupt  #7.  To  do  this,  connect  pins  36,  37, 

38,  and  39  together  and  also  to  pin  #45. 

(10)  Make  the  required  modifications  to  use  2716  2K  byte 
EPROMS.  These  are  given  in  Table  2-12,  which  is  entitled  "Jumper  Changes 
For  Optional  8K  EPROM  Installation".  See  page  2-15. 
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2.  THE  INTERFACE  BOARD 

All  input/output  (I/O)  operations  of  the  SBC  80/20-4  microcomputer 
pass  through  the  interface  board  (IFB).  These  operations  can  be  divided 
into  three  categories. 

•  Rifle  communications 
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•  I/O  through  the  8751  "USART" 

•  Output  through  the  UPI-41,  8741  Universal  Peripheral  Interface 

Figure  III-15  is  a  block  diagram  of  these  data  paths  and  their  asso¬ 
ciated  control  lines.  More  details  are  shown  on  Figure  III-16  through 
1 1 1 -1 9 . 


a.  RIFLE  COMMUNICATIONS 

IR  spot  quadrant  detector  data  are  input  from  each  rifle  to  a 
separate  8212  eight-bit  input/output  port  chip  on  the  IFB.  A  trigger-pull 
signal  is  also  sent  from  each  rifle  to  its  associated  8212.  Upon  sensing 
a  trigger  signal,  the  quadrant  data  are  latched  into  the  8212  buffer  and 
an  interrupt  signal  requesting  service  is  output  from  the  8212  to  the  main 
board  through  input  port  1.  The  service  request  lines  from  all  five  8212s 
are  "ORED"  together  onto  a  single  line  which  also  goes  to  port  1  to  signal 
that  at  least  one  8212  requires  service.  AS  long  as  this  ORED  line  indi¬ 
cates  a  service  need,  the  microcomputer  polls  each  8212  service  request 
line  in  turn.  When  one  is  detected  that  needs  service,  the  address  of  the 
8212  responsible  for  the  request  is  output  from  port  3  on  the  main  board 
to  a  9311  one-of-sixteen  decoder  on  the  IFB.  A  data  read  signal  is  then 
output  from  port  6  to  the  9311,  which  commands  the  8212  to  place  the  con¬ 
tents  of  its  latched  buffer  on  the  common  data  bus. 
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Interface  Board  Schematic 
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Each  of  the  other  four  unaffected  8212  chips  may  also  contain 
data,  but  are  held  temporarily  in  an  inactive  "three-state"  and  present 
a  high  impedance  load  to  the  bus.  The  only  quadrant  data  available  at 
the  main  board  port  2,  therefore,  are  from  the  8212  being  serviced.  These 
data  are  read  into  memory  and  the  data  read  signal  to  the  9311  is  removed. 
This  removes  the  read  command  to  the  8212  and  clears  its  interrupt  service 
request.  A  pulse  is  then  sent  from  port  6  to  the  9311  which  issues  a  re¬ 
set  signal  from  the  IFB  to  the  rifle  electronics  associated  with  the  ser¬ 
viced  8212. 

The  serviced  8212  is  now  in  three  state,  its  service  request  line 
is  off  and  it  is  ready  to  latch  in  new  data  upon  receiving  the  next  trigger- 
pull  signal.  In  the  meantime,  if  other  8212  chips  need  service  as  indicated 
by  assertion  of  the  ORED  line,  the  computer  polls  the  next  8212  interrupt 
line.  If  it  needs  service,  the  process  is  repeated;  if  not,  the  next  8212 
service  line  is  polled  in  sequence.  This  continues  until  the  ORED  service 
line  goes  off  and  the  computer  moves  ahead  with  the  remainder  of  the  program. 

A  "Target  Present"  signal  from  the  IR  spot  projector  is  carried 
directly  through  the  interface  board  to  the  main  board  through  input  port  2. 
The  target  present  information  is  recorded  and  used  during  scoring  to  iden¬ 
tify  a  valid  target. 

b.  USART  I/O 

The  control  terminal  is  an  electronic  data  terminal  operating  at 
a  rate  of  300  bits  per  second,  Reference  1.  At  the  initiation  of  each 
training  session,  the  computer  connects  the  output  serial  data  stream  from 
the  8251  programmable  communication  interface  or  Universal  Synchronous/Asyn¬ 
chronous  Receiver/Transmitter  (USART)  to  the  terminal.  The  computer,  there¬ 
fore,  is  able  to  carry  on  a  two-way  conversation  with  the  squad  leader  in 
order  to  obtain  "initialization"  data  as  shown  on  Figure  6.  The  computer 
questions  the  squad  leader  and  prompts  for  answers  by  issuing  the  character 

II  ^  H 
'  • 

During  the  actual  training  session,  the  USART  output  is  switched 
to  the  digitized  word  audio  system.  When  the  session  is  finished,  the  squad 
leader  strikes/presses  the  start/print  button  on  the  instructor's  console 
and  USART  output  is  again  directed  to  the  terminal  which  types  out  hard  copy 
scores,  as  also  shown  on  Figure  1 1 1-20 . 

c.  UPI-41  MICROCOMPUTER  OUTPUT 

During  a  training  session,  console  CRT  data  are  output  in  parallel 
from  port  6  of  the  80/20-4  single  board  computer  to  an  8741  Universal  Peri¬ 
pheral  Interface  Slave  Microcomputer  (UPI-41)  on  the  IFB.  The  UPI-41  de¬ 
codes  the  parallel  data  and  sends  a  19,200  BAUD,  7  bit  ASCII  data  stream  to 
the  console  CRT.  The  console  CRT  translates  the  serial  data  stream  into  a 
score  message  and  displays  the  message  in  the  column  reserved  for  the  appro¬ 
priate  rifle.  The  UPI-41  also  monitors  the  setting  of  5  control  switches, 
one  for  each  rifle  which  allows  the  squad  leader  to  inhibit  the  display  of 
scores  for  any  or  all  rifles. 
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WANT  ID  YES  OR  NO 
NO 

LET'S  START 


"INITIALIZE"  PORTION  OF  TRAINING 
SESSION 


RIFLE:  1 


YOUR  RESULTS  ARE: 

TOTAL  SHOTS:  99 
HITS:  16 
MISSES:  29 
LOWS:  2 
LOW  RIGHTS: 

RIGHTS:  6 
HIGH  RIGHTS:  3 
HIGHS:  4 
HIGH  LEFTS:  8 
LEFTS:  22 
LOW  LEFTS: 

NO  TARGET:  9 
TARGETS  IGNORED:  8 
TARGETS  SHOT  AT:  30 
AVERAGE  TIME:  1.2  SECONDS 


SESSION  PROPER. 

NO  OUTPUT  TO  TERMINAL  .  OUTPUT 
IS  VIA  VOTRAX  DIGITIZED  AUDIO 
WORDS  &  CONSOLE  CRT.  THIS 
PHASE  IS  TERMINATED  BY  AN 
INTERRUPT  FROM  TERMINAL. 


"PRESENTATION  OF  RESULTS" 


OH  WELL:  THERE'S  HOPE  IF  YOU  SPEED  UP 
YOUR  OVERALL  SCORE  IS:  37 


Figure  III-20.  Typical  Printout  Format  on  Terminal 
(Continues  for  all  5  rifles) 
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The  UPI-41  system  description  is  divided  into  four  parts:  part 
1,  a  functional  summary  and  a  component  interface  description  are  presented. 
Performance  criteria  are  also  established  in  this  section.  Part  2  describes 
the  facilities  available  within  the  UPI-41  and  explains  their  use  in  the  pre¬ 
sent  application.  Part  3  describes  the  UPI-41  control  program  and  part  4 
evaluates  the  system  with  respect  to  assumption  validity,  performance  criteria, 
and  maximum  system  capabilities.  The  source  program  is  given  in  Appendix  D. 

d.  UPI-41  MICROCOMPUTER  OUTPUT  II 

(1)  System  Description 

The  function  of  the  intelligent  controller  is  to  receive  paral¬ 
lel  data  from  the  SBC  80/20,  decode  the  data,  and  cause  a  message  to  appear 
on  the  ADM-3A  screen  based  upon  the  content  of  the  data  received.  The  con¬ 
trol  switch  settings  also  affect  controller  operation,  but  only  secondarily. 

A  block  diagram  showing  the  system  component  relationships 
appears  in  Figure  I 11-21 . 


Figure  III -21 .  UPI-41  Intelligent  Controller  System  Block  Diagram 
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The  following  describes  the  three  component  interfaces  shown 
in  the  figures:  SBC  80/20  to  controller,  controller's  to  ADM-3A,  and  con¬ 
trol  switches  to  controller. 

(a)  SBC  80/20  To  Controller  Interface 

The  SBC  80/20  to  controller  interface  is  comprised  of 
three  sets  of  connections.  The  first  set,  consisting  of  8  data  lines  and 
1  control  line,  are  the  data  transfer  connections.  The  second  set  consists 
of  the  clock  connections  while  the  third  set  consists  of  only  one  connection, 
the  initialization  connection. 

1.  Data  Transfer  Connections 
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The  8  data  lines  of  the  data  transfer  set  connect 
an  8  bit  output  port  on  the  SBC  80/20  to  the  8  bit  Interface  Register  of 
the  UPI-41.  There  are  six  1/0  ports  on  the  SBC  80/20  numbered  1  through  6 
(1).  These  ports  are  divided  into  the  Group  A  ports,  1-3,  and  the  Group  B 
ports,  4-6.  Each  port  group  corresponds  to  a  single  8255  Programmable  Peri¬ 
pheral  Interface,  PPI.  Port  4  of  Group  B  is  programmed  as  an  output 
port  and  used  for  the  SBC  80/20  to  UPI-41  data  connection. 

To  transmit  data  to  the  UPI-41,  the  SBC  80/20 
places  data  on  port  4  and  sends  a  Data-Available  pulse  to  the  UPI-41  over 
the  control  line.  The  Data  Available  pulse  is  software  generated  and  is 
transmitted  through  port  3  of  Group  A  8255.  The  length  of  the  Data  Available 
pulse  is  set  by  the  time  required  to  execute  the  instructions  necessary  to 
change  the  logic  level  of  the  control  line  twice,  first  from  high  to  low, 
then  from  low  to  high.  For  the  SBC  80/20  this  results  in  a  10  microsecond 
pulse.  The  maximum  pulse  length  to  the  UPI-41  is  set  at  twice  the  instruc¬ 
tion  cycle  length,  or  6.5  microseconds;  therefore,  the  10  microsecond 
Data  Available  pulse  is  sent  to  the  one  shot  within  the  controller  where  it 
is  shortened  to  1  microsecond.  The  1  microsecond  pulse  from  the  one  shot 
supplies  the  WR  input  to  the  UPI-41.  On  the  rising  edge  of  this  pulse  the 
data  on  the  SBC  80/20  output  port  is  latched  into  the  UPI-41  Interface  Regis¬ 
ter.  SBC  80/20  to  controller  data  transfer  connections  are  illustrated  in 
Figure  III -22 . 


Each  byte  of  data  transferred  from  the  SBC  80/20 
to  the  UPI-41  contains  two  kinds  of  information  encoded  into  separate  fields 
within  the  byte.  The  three  most  significant  bits  contain  a  source  identi¬ 
fier  encoded  in  straight  binary,  and  the  four  least  significant  bits  contain 
a  message  identifier,  also  in  straight  binary,  see  Figure  III-23.  Bit  four 
is  not  used. 


The  rate  of  data  transfer  from  the  SBC  80/20  to 
the  controller  can  be  characterized  by  three  separate  data  transfer  rates  of 
which  the  last  two  will  be  of  interest.  The  first  two  rates  are  determined 
by  the  SBC  80/20  input  configuration.  Figure  III-24,  while  the  third  is  de¬ 
termined  by  the  input  configuration  in  combination  with  the  SBC  80/20  data 
processing  rate. 


The  SBC  80/20  input  configuration  consists  of  5 
input  sources,  where  each  source  contains  a  data  latch  and  a  service  request 
line.  When  data  is  latched  into  one  of  the  sources,  the  SBC  80/20  receives 
a  service  request  signal  from  that  source.  For  each  service  request  that 
the  SBC  80/20  responds  to,  a  data  byte  will  be  sent  to  the  controller. 
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Figure  1 1 1-22.  SBC  80/20  to  Controller 


MOST  SIGNIFICANT  LEAST  SIGNIFICANT 


SOURCE  UNUSED  MESSAGE 

IDENTIFIER  IDENTIFIER 


Figure  1 1 1-23.  SBC  80/20  to  UPI-41  Data  BYTE 


SOURCE 


SOURCE 


SOURCE 


SOURCE 


SERVICE  REQUEST  1 


SERVICE  REQUEST  2 


SBC  80/20 


VI 


CONTROLLER 


SERVICE  REQUEST  3 


SERVICE  REQUEST  4 


SERVICE  REQUEST  5 


Figure  III-24.  SBC  80/20  Input  Source  Configuration 


The  first  data  transfer  rate  is  the  average 
transfer  rate  and  occurs  when  the  !S  sources  are  initiating  service  re¬ 
quests  at  their  norminal  rate.  The  second  data  transfer  rate  is  a  peak 
average  rate,  and  occurs  when  all  5  sources  are  initiating  service  re¬ 
quests  at  their  maximum  rate  of  12  per  second.  This  condition  results 
in  a  peak  average  rate  of  12  x  5,  or  60  transfers  per  second.  The  third 
data  transfer  rate  is  the  maximum  rate,  and  occurs  anytime  there  are  sim¬ 
ultaneous  service  requests  to  the  SBC  80/20.  This  rate  is  determined  by 
the  processing  rate  of  the  SBC  80/20.  Analysis  using:  (1)  real-time 
emulation  under  control  of  Intel's  In  Circuit  Emulator,  ICE-80,  (2)  tabu¬ 
lation  of  instructions  executed  and  their  execution  time  and  (3)  experi¬ 
mental  determination,  indicates  that  the  SBC  80/20  processing  rate  is 
approximately  200  inputs  per  second. 

As  indicated  before,  the  peak  average  transfer 
rate  of  60  transfers  per  second,  and  the  maximum  transfer  rate  of  200 
transfers  per  second  are  the  relevant  quantities  characterizing  the  data 
transfer  interface. 

To  keep  up  with  the  SBC  80/20  over  extended  per¬ 
iods,  the  processing  rate  of  the  UPI-41  must  equal  or  exceed  the  SBC  80/20 
peak  average  transfer  rate,  and  to  keep  up  with  the  SBC  80/20  when  simul¬ 
taneous  service  requests  have  occured,  the  reception  rate  of  the  UPI-41 
must  equal  or  exceed  the  SBC  80/20  maximum  transfer  rate. 

The  requirement  on  the  UPI-41  processing  rate  will 
be  used  in  the  sequel  to  determine  the  baud  rate  used  in  the  controller  to 
ADM-3A  interface,  while  the  requirement  on  the  UPI-41  reception  rate  will 
be  used  to  establish  the  necessity  of  a  data  queue  within  the  UPI-41. 

One  final  point  is  that  there  are  no  provisions 
for  the  UPI-41  to  indicate  that  it  is  ready  to  accept  a  data  transfer  from 
the  SBC  80/20.  Thus,  the  data  queue  mentioned  above  will  be  filled  by  an 
interrupt  driven  procedure.  This  technique  will  assure  that  a  data  byte 
has  been  removed  from  the  Interface  Register  before  an  additional  data 
transfer  can  occur. 

2.  Clock  Connections 

The  clock  connections  supply  the  UPI-41  clock  in¬ 
puts,  XI  and  X2.  A  single  line  from  the  SBC  80/20  supplies  the  controller 
with  a  9.216  megahertz  clock  which  the  SBC  80/20  makes  available  as  the 
BCLK  output.  Within  the  controller,  the  BCLK  frequency  is  divided  in  half 
by  a  7474D  flip  flop.  This  division  is  necessary  to  bring  the  BCLK  fre¬ 
quency  within  the  1  to  6  megahertz  operating  range  of  the  UPI-41.  The  Q 
and  Qo  outputs  of  this  flip  flop  supply  the  UPI-41  inputs,  XI  and  X2,  with 
a  180°  out  of  phase  4.608  megahertz  clock.  While  the  UPI-41  is  capable  of 
generating  its  own  clock  by  connecting  a  crystal  to  the  XI  and  X2  inputs, 
the  BCLK  frequency  is  used  since  the  standard  asynchronous  communication 
frequencies  can  be  derived  from  it.  The  clock  connections  are  shown  in 
Figure  III-25. 


Figure  1 1 1-25 .  SBC  80/20  to  Controller  -  Clock  Connections 

3_.  Initialization  Connection 

The  initialization  connection  is  between  INIT  out¬ 
put  of  the  SBC  80/20  and  the  RESET  input  of  the  UPI-41.  A  low  going  pulse 
on  this  line  causes  the  control  program  of  the  UPI-41  to  begin  execution 
at  location  0. 


(b)  Controller  to  ADM-3A  Interface 

The  controller  to  ADM-3A  interface  consists  of  a  single  line 
which  originates  from  line  0  to  port  1  on  the  UPI-41,  passes  through  the 
75188  inverting  line  driver,  and  terminates  on  the  Receive  Data,  RXD,  input 
of  the  ADM-3A.  The  line  driver  converts  the  TTL  output  of  port  1,0-5 
volts,  into  RS-232C  logic  levels  of  ±  12  volts. 

Information  is  transmitted  from  the  UPI-41  to  the  ADM-3A 
serially  using  7  bit  ASCII  code  under  the  RS-232C  communication  protocol. 

For  this  application,  the  number  of  bits  per  character  has  been  minimized  by 
using  a  single  stop  bit  and  no  parity  bit.  For  a  given  serial  transmission 
rate  this  configuration  will  result  in  the  fastest  possible  character  trans¬ 
mission  time.  This  time  is  an  important  consideration,  as  each  parallel 
byte  received  by  the  controller  from  the  SBC  80/20  will  require  a  22  char¬ 
acter  message  to  be  transmitted.  With  the  single  start  bit,  the  9  bit  ser¬ 
ial  character  appears  as  shown  in  Figure  1 1 1-26. 
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*  1  *  1  *  — >1  ■  I  ( 

* MARKING  START  DATA  STOP  MARKING  * 

BIT  BITS  BIT 


Figure  1 11-26 .  Serial  Transmission  Character 

Each  data  byte  received  by  the  UP  I -41 ,  except  as  noted  in  the 
next  section  causes  a  string  of  9  bit  characters  to  be  sent  from  the 
UPI-41  to  the  ADM-3A,  a  24  line  by  80  character  CRT  display. 

The  function  of  the  ADM-3A  is  to  provide  three  kinds  of  informa¬ 
tion  concerning  the  SBC  80/20  inputs  to  an  observer.  The  ADM-3A  displays 
a  message,  indicates  the  SBC  80/20  source  corresponding  to  the  message, 
and  reflects  the  order  of  input  occurrence.  The  message  is  indicated  by 
the  characters  displayed  on  the  screen.  The  source  is  indicated  by  divid¬ 
ing  the  ADM-3A  screen  into  5  columns  of  equal  width,  with  the  first  column 
reserved  for  source  1  messages,  the  second  column  for  source  2  messages, 
and  so  on  for  the  five  sources.  The  order  of  inputs  is  indicated  by  scroll¬ 
ing  the  display  1  line  each  time  a  message  is  displayed. 

For  a  screen  width  of  80  characters,  and  not  allowing  an  overlap 
of  columns,  the  message  field  for  each  source  is  limited  to  the  integer 
portion  of  80/5,  or  16  characters.  The  ADM-3A  screen  use  is  illustrated 
in  Figure  III -27 . 

To  implement  the  function  of  the  ADM-3A  as  described  above  requires 
that  22  characters  be  sent  to  the  ADM-3A  for  each  SBC  80/20  to  controller 
transfer.  The  22  characters  are  sent  in  3  groups:  a  cursor  control  group, 
a  message  group,  and  a  display  control  group. 

The  first  group  sent,  the  cursor  control  group,  contains  four 
characters  which  cause  the  cursor  to  the  ADM-3A  to  position  itself  at  the 
beginning  of  one  of  the  five  message  columns.  The  first  two  control  charac¬ 
ters  "escape"  and  "equals",  activate  the  ADM-3A  cursor  positioning  logic, 
while  the  next  two  characters  are  interpreted  as  the  X  and  Y  coordinates  of 
the  new  cursor  position,  respectively.  The  Y  coordinate  sent  is  always  the 
same,  037H,  and  selects  the  bottom  line  of  the  display.  The  X  coordinate 
is  determined  by  the  SBC  80/20  input  source. 

The  second  group  sent,  the  message  group,  contains  16  characters. 
These  characters  will  be  printed  on  the  screen  of  the  ADM-3A  in  the  message 
field  whose  beginning  was  established  by  the  cursor  positioning  control 
group. 
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SOURCE  SOURCE  SOURCE  SOURCE  SOURCE 

1  2  3  4  5 

COLUMN  COLUMN  COLUMN  COLUW  COLUMN 


The  third  group  sent,  the  display  control  group,  contains  the  re¬ 
maining  2  characters.  These  characters,  a  carriage  return  and  line  feed, 
cause  the  display  to  scroll  up  one  line  in  preparation  for  the  next  control 
group  1  sequence. 

The  complete  22  characters  string  appears  as  shown  in  Figure  111-28. 


1  2  3  4  1  16  1  2 


CONTROL  MESSAGE  CONTROL 

GROUP  1  GROUP  GROUP  2 


Figure  1 1 1-28.  Character  String  Transmitted  to  ADM-3A 

The  final  aspect  of  the  controller  to  ADM-3A  interface  is  the  ser¬ 
ial  transmission  rate  to  be  used.  Having  now  established  (1)  the  number  of 
characters  sent  by  the  controller  to  the  ADM-3A  per  SBC  80/20  input,  (2)  the 
number  of  serial  bits  per  character,  9,  and  (3)  the  UPI-41  processing  rate 
requirement,  60  transfers/sec,  a  minimum  serial  transmission,  or  baud,  rate 
can  be  computed  as: 

22  characters/SBC  80/20  transfer  x 
minimum  baud  rate  =  9  bits/character  x  (1) 

60  SBC  80/20  transfers/ second 

or  11,880  bits  per  second.  The  next  highest,  indeed  the  highest,  baud  rate 
at  which  the  ADM-3A  can  receive  data  is  19,200  baud.  This  value  must  neces¬ 
sarily  be  chosen  as  the  data  transmission  rate. 

(c)  Control  Switches  to  Controller  Interface 

The  control  switches  to  controller  interface  is  a  5  line  connection 
between  5  control  switch  outputs  and  the  5  least  significant  inputs  of  port 
2  on  the  UPI-41.  The  design  of  port  2  on  the  UPI-41  is  such  that  if  nothing 
is  connected  to  a  port  line,  the  line  will  read  as  a  logic  one,  whereas,  if 
the  line  is  grounded  through  a  lk  resistor,  the  port  will  read  a  logic  zero 
(3).  The  control  switch  to  controller  connections  are  shown  in  Figure  III -29 . 

During  the  processing  of  a  data  byte  by  the  UPI-41,  the  binary 
source  identifier  is  translated  into  a  linear  select  code  which  is  then  com¬ 
pared  with  the  switch  setting  on  port  2.  If  the  switch  corresponding  to  the 
source  identifier  is  set  in  the  abort  position,  a  logic  0  is  present  and  a 
message  will  not  be  sent.  This  is  the  exception  referred  to  in  the  controller 
to  ADM-3A  interface  description.  If  the  switch  is  set  in  the  display  position 
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a  logic  true  will  be  present  and  a  message  will  be  sent. 

This  concludes  the  overall  system  description.  The 
next  two  sections  will  describe  the  principle  device  within  the  intelli¬ 
gent  controller,  the  UP  I -41  single  chip  microcomputer. 


Figure  II 1-29.  Control  Switches  to  Controller  Interface 

e.  UPI-41  MICROCOMPUTER  OUTPUT  II 

The  UPI-41  single  chip  microcomputer  provides  the  intelli¬ 
gence  of  the  intelligent  controller.  The  block  diagram  in  Figure  HI- 
30  illustrates  the  facilities  available  within  the  UPI-41. 

As  described  in  the  previous  section,  the  interface  register 
is  used  for  communication  with  the  SBC  80/20,  port  1  is  used  for  com¬ 
munication  with  the  ADM-3A,  and  port  2  is  used  for  communication  with 
the  control  switches. 

Program  memory  is  divided  into  4  pages  of  256  bytes  each. 
These  pages  are  numbered  0  to  3.  Page  0  contains  the  main  loop  of  the 
control  program,  while  page  1  contains  the  various  subroutines  called 
by  the  main  loop.  Page  3  has  a  special  feature  in  that  data  bytes  can 
be  transferred  from  it  to  the  accumulator  using  the  current  value  of 
the  accumulator  as  a  pointer.  This  "table  lookup"  feature  is  used  to 
access  the  message  strings  which  are  sent  to  the  ADM-3A.  16  messages 
of  16  characters  each  are  stored,  using  all  256  bytes  within  the  page. 
Program  memory  configuration  is  shown  in  Figure  1 1 1 -31 . 
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Figure  1 1 1-30 .  UP! -41  Single  Chip  Microcomputer  Block  Diagram 
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PAGE  2  UNUSED 


200 

IFF 

PAGE  1 

100 

SUBROUTINES 

PAGE  0 

FF 

0 

MAIN  PROGRAM 

LOOP 

Figure  III -31 .  UPI-41  Control  Program  Memory  Map 

RAM  within  the  UPI-41  serves  three  purposes:  it  contains 
the  registers,  the  subroutine  and  interrupt  stack,  and  the  variable 
data  storage  locations.  The  distribution  of  the  64  RAM  locations  be¬ 
tween  these  three  functions  is  shown  in  Figure  III-32. 

The  registers  in  bank  0  are  designated  R0-R7,  while  those 
in  bank  1  are  designated  R0'-R7'.  Only  one  register  bank  at  a  time 
can  be  addressed.  Bank  selection  is  accomplished  by  executing  a  spe- 
cail  select  register  bank  X,  SELRBX,  instruction  where  X  is  either  0 
or  1.  The  registers  of  bank  0  are  used  for  data  processing  and  message 
transmission,  while  those  of  bank  1  are  used  for  queue  control. 

The  UPI-41  contains  a  rather  sophisticated  timer  which  was 
evaluated  for  use  as  the  bit  interval  generator  for  UPI-41  to  ADM-3A 
serial  transmission.  As  several  difficulties  were  encountered,  the 
use  of  the  timer  while  representing  a  possible  area  for  future  research, 
was  rejected  in  favor  of  a  software  timing  approach.  The  software  tim¬ 
ing  routine  will  be  described,  along  with  the  rest  of  the  UPI-41  con¬ 
trol  program,  in  the  next  section. 


Figure  II 1-32.  UPI-41  RAM  M< mory  Map 


f.  UP I -41  CONTROL  PROGRAM  IV 


The  UPI-41  program  is  written  in  MCS-48/UPI-41  assembly  lan¬ 
guage.  It  was  assembled  using  a  cross  assembler  operating  on  an  Intel 
Microcomputer  Development  System,  MDS-800.  The  machine  code  was  burned 
into  the  EPROM  program  memory  of  the  UPI-41  using  an  Intel  Universal 
Prom  Programmer  and  the  Universal  Prom  Mapper  Software.  The  assembly 
of  the  program  and  the  burning  of  the  EPROM  were  done  under  control  of 
the  Intel  System  Implementation  Supervisor,  ISIS  II,  operating  from  an 
Intel  Dual  Floppy  Disk  Drive. 

The  program  description  is  divided  into  three  parts: 

•  Initialization  procedures 

•  Data  reception  and  storage 

•  Data  decode  and  message  transmission 

The  program  listing  is  located  in  Appendix  "D",  flowcharts  ap¬ 
pear  in  Figures  1 1 1 -33  through  1 1 1-35 . 

(1)  Initialization  Procedures 

The  first  section  of  the  UPI-41  program  performs  func¬ 
tions  which  are  necessary  prior  to  data  reception.  These  functions  are 
the  initialization  of  registers  and  the  initialization  of  the  ADM-3A 
screen.  The  values  placed  in  the  various  registers  will  be  explained 
as  they  are  encountered  within  the  program.  The  screen  initialization 
procedure  consists  of  clearing  the  screen  and  positioning  the  cursor  in 
the  bottom  left  hand  corner.  The  screen  is  cleared  by  transmitting  a 
special  character,  01AH,  to  the  ADM-3A,  while  the  cursor  is  posi¬ 
tioned  using  the  4  character  cursor  positioning  sequence  described  pre¬ 
viously  in  the  controller  to  ADM-3A  interface  section. 

As  the  final  step  in  the  initialization  procedures,  the 
UPI-41  enables  itself  to  data  reception  by  outputting  a  logic  zero  to 
port  2  line  7.  This  port  line  is  connected  to  the  UPI-41  chip  select, 
CS,  input.  Since  all  port  lines  are  in  the  logic  high  state  following 
a  system  reset,  UPI-41  input  is  disabled  until  the  output  instruction 
is  executed. 


(2)  Data  Reception  and  Storage 

When  data  is  written  into  the  UPI-41  interface  register 
by  the  SBC  80/20,  an  interrupt  request  is  generated.  Upon  recognition 
of  the  interrupt,  the  interrupt  vector  jump  at  locations  3  and  4  in 
program  memory  is  executed,  and  the  interrupt  service  routine,  lines 
118  through  134  in  Appendix  "D",  is  entered.  The  interrupt  routine  in¬ 
puts  the  data  from  the  interface  register  and  places  the  data  in  a 
queue.  A  flowchart  of  the  interrupt  service  routine  appears  in  Figure 
I I 1-34. 


Figure  III -33 .  UPI-41  Control  Program  Flowchart  Processing  Loop 
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It  was  pointed  out  in  the  section  describing  the  SBC 
80/20  controller  interface  that  the  UPI-41  reception  rate  requirement 
would  necessitate  the  data  queue.  The  necessity  for  the  queue  can  be 
shown  as  follows: 

Unless  the  19,200  baud  rate  can  meet  the  UPI-41  reception  rate  require¬ 
ment  as  well  as  the  processing  rate  requirement,  it  is  necessary  to  pro¬ 
vide  a  data  queue  to  prevent  data  from  being  overwritten  in  the  inter¬ 
face  register.  For  this  condition  to  be  met,  the  19,200  baud  rate  must 
be  proportionately  greater  than  the  11,800  minimum  baud  rate  by  at  least 
the  proportion  of  the  reception  rate  requirement  to  the  processing  rate 
requirement,  or 

19,200  M  200 

1 1 ,800  =  "5C  (2) 

as  this  is  not  true,  a  queue  must  be  maintained. 

To  meet  the  storage  requirements  a  First  In  First  Out,  or 
FIFO,  stack  is  implemented  in  the  variable  data  storage  area  of  the  RAM 
memory.  See  Figure  1 1 1-36 .  A  FIFO  stack  allows  data  to  be  retrieved  so 
that  order  of  entry  is  preserved.  The  operation  of  a  FIFO  stack  can  be 
conceptualized  by  considering  a  storage  mechanism  where  data  inputs  are 
stacked  one  on  top  of  the  other  as  they  arrive,  and  where  data  removal 
is  accomplished  by  pulling  from  the  bottom.  As  an  entry  is  removed,  all 
remaining  entries  move  down  one  location.  This  operation  is  illustrated 
in  Figure  I 11-36 . 

The  problem  with  this  implementation  is  in  moving  the  re¬ 
maining  data  entries  down.  For  N  remaining  inputs,  the  operation  re¬ 
quires  2N  memory  accesses  and  5N  program  steps  as  shown  below: 

(a)  Increment  pointer 

(b)  Load  data  byte  -  first  memory  access 

(c)  Decrement  pointer 

(d)  Store  data  byte  -  second  memory  access 

(e)  Increment  pointer 
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PUT 


QUEUE  BASE 


INPUT  N  +  1 

PUT— ► 

INPUT  N 

INPUT  N  +  1 

INPUT  N 

INPUT  2 

I  1  INPUT  1  | 

INPUT  2 

Figure  1 1 1-36 .  Fixed  Base  FIFO  Operation 

A  more  efficient  algorithm  uses  a  "get  data"  pointer  as 
well  as  the  "put  data"  pointer  used  in  the  implementation  above.  The 
get  data  pointer  allows  the  "bottom"  of  the  stack  to  move  upward  as 
data  is  removed  from  the  stack.  This  eliminates  the  necessity  of  moving 
each  of  the  remaining  inputs  down.  Instead,  the  get  data  pointer  is  in¬ 
cremented  once  each  time  data  is  removed.  The  put  data  pointer  always 
identifies  the  next  location  available  for  data  storage  and  the  get  data 
pointer  identifies  the  location  of  the  next  value  to  be  removed.  The 
only  problem  with  this  implementation  is  that  unless  data  memory  is  in¬ 
finitely  long,  storage  locations  will  run  out  at  some  point.  This  condi¬ 
tion  being  unacceptable,  a  "top-of-stack"  must  be  defined,  and  as  the 
pointers  reach  the  top  they  must  be  wraparound.  In  this  application  the 
top-of-stack  has  been  made  coincident  with  the  top  of  RAM,  making  the 
last  location  address  63  and  giving  a  stack  size  of  (63-32)  +1,  or  32 
locations.  As  each  pointer  reaches  location  63,  it  is  returned  to  loca¬ 
tion  32  instead  of  being  incremented  further.  Implemented  in  this  manner, 
the  number  of  steps  required  for  a  data  removal  is  independent  of  N  and, 
for  the  UPI-41,  has  a  maximum  value  of  5  as  indicated  by  lines  85  through 
89  of  the  program  listing. 
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For  either  implementation,  some  way  of  determining  when 
the  stack  is  full  must  be  available.  For  the  two  pointer  implementa¬ 
tion,  the  queue  full  condition  is  easily  detected  by  maintaining  a 
queue  status  value  which  indicates  how  many  entries  are  presently  on 
the  stack.  If  a  check  of  the  queue  status  register  indicates  that  the 
queue  is  full,  additional  data  must  be  rejected  to  avoid  overwriting 
of  the  earliest  entry  with  the  newest  entry.  Since  the  UP I -41  has  been 
designed  to  meet  the  processing  rate  requirement,  it  follows  that  the 
maximum  stack  usage  must  be  less  than  or  equal  to  the  number  of  SBC 
80/20  input  sources,  or  5;  therefore,  the  queue  full  condition  can 
never  occur  in  this  application.  Use  of  the  queue  status  value  in  this 
application,  then,  is  limited  to  determining  when  data  is  available  on 
the  stack.  Figure  1 1 1-37  illustrates  the  operation  of  the  moving  base 
FIFO  stack. 


Registers  0  and  1  are  the  only  locations  which  can 
serve  as  pointers  into  the  variable  data  storage  area;  therefore, 
the  get  and  put  data  pointers  are  defined  as  the  contents  of  regis 
ters  0  and  1  respectively,  the  other  locations  are  assigned  arbit¬ 
rarily  as  per  Table  III-l. 

TABLE  III-l.  REGISTER  BANK  1  MAP 


Register 

7' 

Temporary  Storage 

Register 

6' 

Queue  Status  Con.  =  224 

Register 

5' 

Wraparound  Constant  =  193 

Register 

4' 

Unused 

Register 

3' 

Accumulator  Storage 

Register 

2' 

Queue  Status 

Register 

T 

Put  Data  Pointer 

Register 

O’ 

Get  Data  Pointer 

(3)  Data  Decode  and  Message  Transmission 

Once  data  is  placed  in  the  queue  by  the  interrupt  ser¬ 
vice  routine,  a  check  of  the  queue  status  register,  lines  80  and  81 
of  the  program  listing,  will  indicate  that  data  is  available  for  pro¬ 
cessing.  The  program  will  then  enter  the  main  program  loop,  line  82, 
where  the  data  decode  and  message  transmission  function  begins. 

This  section  of  the  program  can  be  divided  into  3  seg¬ 
ments  : 

(a)  Data  access 

(b)  Source  processing 

(c)  Message  processing 
1_.  Data  Access 

The  function  of  the  data  access  segment  is  to 
remove  a  data  byte  from  the  queue  and  perform  the  transition  between 
register  bank  1  operation  and  register  bank  0  operation.  The  data  re¬ 
moval  steps  are  reminiscent  of  the  steps  performed  in  the  interrupt 
routine,  while  the  bank  transition  is  accomplished  by  placing  the  data 
in  the  accumulator  and  then  selecting  the  new  register  bank.  A  flow¬ 
chart  is  shown  in  Figure  111-38. 
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Register  bank  0  is  used  for  the  remainder  of 
the  program.  All  locations  within  this  bank  are  assigned  arbitrarily 
as  shown  in  Table  1 1 1 -2 . 

TABLE  III -2 .  REGISTER  0  MAP 


Register  7 

Data  Byte 

Register  6 

Message  Length  Constant 

Register  5 

Binary  Source  Identifier 

Register  4 

Linear  Select  Source  Identifier 

Register  3 

Message  Identifier 

Register  2 

Relay  Counter 

Register  1 

Unused 

Register  0 

Serial  Transmission  Counter 

2.  Source  Processing 

The  function  of  the  source  processing  segment, 
lines  93  through  98,  is  to  use  the  source  identifier  portion  of  the 
data  byte  to  (1)  determine  whether  a  message  tranmission  is  desired 
and  (2)  position  the  cursor  at  the  proper  place  on  the  ADM-3A  screen. 

The  source  processing  segment  calls  three  subroutines;  MASK,  LOCSET, 
and  TAB. 

Subroutine  MASK,  lines  144  through  156,  coverts 
the  binary  source  identifier  into  the  linear  select  identifier  through 
the  use  of  the  lookup  table  located  at  MSKDAT,  line  143.  The  subroutine 
then  performs  the  comparison  with  the  port  2  control  switch  lines  and 
sets  a  flag  according  to  the  result. 

Subroutine  LOCSET,  lines  161  through  168,  sends 
the  characters  which  activate  the  cursor  control  logic  and  the  Y  coordi¬ 
nate  value  to  the  ADM-3A. 

Subroutine  TAB,  lines  157  through  160,  converts 
the  binary  source  identifier  into  the  proper  X  coordinate  value  and  com¬ 
pletes  the  cursor  positioning  sequence  by  transmitting  the  coordinate 
value  to  the  ADM-3A. 
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3.  Message  Processing 

The  function  of  the  message  processing  seg¬ 
ment,  lines  99  through  112,  is  to  convert  the  message  identifier  por¬ 
tion  of  the  data  byte  into  the  page  3  address  of  the  message  string, 
output  the  message  string,  scroll  the  ADM-3A  display  one  line,  and 
return  to  the  queue  status  checking  loop. 

The  page  3  address  of  the  message  string  is 
produced  by  multiplying  the  binary  message  identifier  by  16.  Thus, 
the  message  identifier  is  converted  into  the  starting  address  of  a 
16  character  string  which  makes  up  the  message.  The  multiplication 
is  accomplished  by  swapping  the  high  and  low  order  nybbles  of  the  data 
byte  and  then  masking  out  the  low  order  nybble.  This  operation  is 
equivalent  to  four  left  shifts  and,  therefore,  multiplies  the  source 
identifier  by  2^,  or  16. 

Subroutine  STROUT,  lines  169  through  175,  uses 
the  message  address  produced  by  the  preceeding  multiplication  and  the 
string  length  constant  contained  in  register  6  to  control  the  transmis¬ 
sion  of  the  16  character  message  string  to  the  ADM-3A. 

The  CRLF  procedure,  lines  107  through  110, 
cause  the  scroll  of  the  ADM-3A  display  by  sending  the  carriage  return 
line  feed  combination. 

Finally,  register  bank  1  is  selected  so  that 
when  the  jump  at  line  112  occurs  the  register  bank  containing  the  queue 
status  value,  R2',  will  be  addressed  by  the  WAIT  loop. 

This  completes  the  description  of  the  control 
program  except  for  the  subroutine  which  controls  character  transmission. 
This  function  is  accomplished  by  the  OUTPUT  subroutine,  lines  176 
through  191 . 

It  was  noted  in  the  description  of  the  clock 
connection,  section  II,  that  the  4.608  megahertz  clock  input  to  the 
UPI-41  would  be  used  to  generate  the  proper  communication  frequency. 

The  following  discussion  explains  this  process  and  the  operation  of 
the  OUPUT  subroutine, 

Each  instruction  in  the  UPI-41  instruction 
set  consists  of  either  1  or  2  instruction  cycles.  Each  instruction 
cycle  consists  of  5  machine  states  and  each  state  consisits  of  3  clock 
periods.  See  Figure  III -39 . 

clock  J-UTJl^^-TLTLr 


INSTRUCTION  CYCLE 


Figure  III -39 .  UPI-41  Instruction  Cycle 


The  instruction  cycle  execution  rate,  then,  is  1/15  of 
the  input  clock  rate  or  307,200  instruction  cycles  per  second.  The 
instruction  cycle  execution  rate  divided  by  16  produces  the  serial 
transmission  rate  of  19,200  baud.  Therefore,  a  bit  interval,  i.e., 
the  time  a  serial  bit  should  be  present  on  port  1  during  transmission, 
is  exactly  16  instruction  cycles.  A  9  bit  character  can  be  transmitted 
by  constructing  a  loop  which  places  a  new  serial  bit  on  the  port  1 
transmission  line  every  16  instruction  cycles. 

The  OUTPUT  subroutine,  Figure  1 1 1-40,  expects  the  7 
least  significant  accumulator  bits  to  hold  the  7  bit  ASCII  representa¬ 
tion  of  the  character  to  be  sent.  As  9  bits  are  required  to  send  a 
complete  character,  including  the  start  and  stop  bits,  the  8  bit  accum¬ 
ulator  and  the  carry  bit  are  catenated  to  form  a  9  bit  register.  The 
accumulators  most  significant  bit  and  the  carry  bit  serve  as  the  stop 
and  start  bits  respectively.  Once  the  9  bit  register  is  set  up  with 
the  character,  the  bits  are  sent  by  successively  rotating  the  bits  into 
the  least  significant  bit  position  of  the  accumulator  and  then  output¬ 
ting  the  accumulator  to  port  1. 

Instructions  1,  2,  and  3  set  up  the  character,  the  trans 
mission  loop  begins  at  line  180.  Note  that  the  number  of  instruction 
cycles  required  for  each  instruction  in  the  transmission  loop  is  shown 
to  the  right  of  the  instructions. 

For  the  first  eight  bits  transmitted,  program  execution 
proceeds  through  the  steps  indicated  1  through  8.  As  can  be  verified 
by  the  reader,  16  instruction  cycles  are  executed  between  bit  changes. 


OUTPUT  DIS 

I 

nov 

R&W7N  ;  SERIAL  BIT  COUNTER 

NOV 

AR1 

GET  ASCII  CHARACTER  TO  BE  OUTPUT 

ANL 

PMMH 

PUT  OUT  START  BIT 

NOV 

R2.M4H  ; SET  UP  DELflV  LOOP  LENGTH 

CALL 

DELAY 

low:  am. 

PI,  A 

OUTPUT  CURRENT  BIT  OF  SERIAL  CODE 

RR 

A 

GET  TEXT  BIT  OF  ASCII  CODE 

NOP 

WAIT  1  INSTRUCTION  CYCLE  TO  COMPENSATE 

FOR  RR  BEING  A  SINGLE  CYCLE  OPERATION 

NOV 

R2,W2H 

SET  UP  DELAY  LOOP  LENGTH 

cm 

DELAY 

DJNZ 

R&IOOP1 

; TEST  FOR  7  BITS  OUTPUT 

ORL 

PLM1H 

PUT  OUT  STOP  BIT 

NOV 

R2,W3H  » SET  UP  DELAY  LOOP  LENGTH 

cm 

DELAY 

JF0 

NOINEN 

IF  IN  SETUP  SEGMENT  DONT  ENABLE  INTERRUPTS 

EN 

I 

NOINEN:  RET 

i  RETURN  FRCH  SUBROUTINE 

Figure  III-40.  UPI-41  Character  Transmission  Subroutine 
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Program  flow  for  the  final  bit  proceeds  through  the 
steps  indicated  A  through  E.  While  this  sequence  requires  only  9  in¬ 
struction  cycles,  analysis  of  the  complete  program  shows  that  for  any 
set  of  conditions  a  minimum  of  8  additional  instruction  cycles  will  be 
required  to  reach  the  initial  ouput  instruction  for  a  new  character. 

Thus,  a  minimum  of  9  +  8,  or  17,  cycles  will  be  executed  exceeding  the 
minimum  of  16  by  1  cycle.  But,  as  there  is  no  maximum  length  for  the 
stop  bit  since  its  level  corresponds  to  the  nonactive,  or  "marking" 
state,  the  value  17  is  acceptable. 

The  instruction  executed  just  prior  to  entry  into  the  bit 
transmission  loop  diables  interrupts,  while  the  instruction  just  before 
the  return  reenables  them.  Interrupts  must  be  disabled  during  transmis¬ 
sion  of  a  character  since  the  occurance  of  an  interrupt  service  routine 
would  insert  extra  instruction  cycles,  thereby  destroying  the  integrity 
of  the  software  timing  loop. 

As  a  concluding  remark  on  the  UPI-41  control  program,  it 
is  noted  that  starting  on  page  51  of  the  listing,  a  sample  set  of  mes¬ 
sage  strings  is  shown. 

The  program  listing  referred  to  throughout  this  section 
is  the  assembly  listing  produced  during  the  assembly  of  the  UPI-41  con¬ 
trol  program  source  file.  This  version  of  the  program  was  used  for  the 
system  evaluation  to  be  presented  in  the  next  section. 

3.  80/80  PROGRAM 

Operation  of  the  80/20-4  Microcomputer  is  directed  by  program  code 
in  three  2716  2KX8  EPROMS.  The  code  was  compiled  from  a  program  written 
in  PL/M-80  language.  Reference  3  gives  a  number  of  PL/M-80  examples. 
While  reference  5  provides  the  language  syntax  and  other  definitions. 

The  overall  program  strategy  is  shown  on  Figure  1 1 1 -41 ,  with  more 
detail  given  on  Figure  III -42 .  The  program  listing  is  given  in  Appen¬ 
dix  A. 

After  power  has  been  turned  on,  the  program  starts  when  the  80/20-4 
"RESET"  button  is  pushed. 

During  "initialize"  the  program  issues  a  series  of  questions  to 
the  system  console  and  prompts  for  answers  as  shown  on  Figure  1 1 1 -41 . 

If  desired,  the  date,  training  session  number,  and  trainee  names  are 
obtained  and  stored  for  future  reference.  When  all  identification  data 
have  been  collected  and  other  housekeeping  details  completed,  the  pro¬ 
gram  issues  "LET'S  START"  and  the  main  training  session  loop  is  entered. 
This  loop  may  be  executed  along  the  three  different  paths  indicated  on 
the  flowchart.  Figure  III -42 . 

If  there  is  no  target  present  on  the  screen  and  no  rifle  trigger 
is  pulled,  i.e.,  no  "action",  then  path  3  will  be  selected  by  program 
logic.  No  data  comments  are  generated  during  early  passes  around  the 
path  3  loop.  Subsequent  "action"  will  cause  flags  to  be  set  and  a  re¬ 
turn  to  path  3  may  result  In  a  comment  of  either  "NO  TARGET"  or  "YOU 
FROZE"  being  sent  to  the  earphones  of  any  erring  trainee.  Correspond¬ 
ing  error  data  are  filled  in  RAM  memory  for  the  identified  trainee 
which  will  lower  his  score  printed  out  after  the  session  ends. 
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“ACTION"  is  true  after  a  target  becomes  available  and/or  a  rifle 
is  "FIRED".  The  session  loop  will  now  pass  through  either  path  1  or  2 
as  dictated  by  program  logic.  This  logic  also  determines  the  proper 
data  to  be  filed  and  comment  to  be  sent  to  the  trainee's  earphones. 

For  example,  if  the  target  disappears  but  the  trainee  persists  in  shoot¬ 
ing  for  more  than  one  second,  then  a  "NO  TARGET"  comment  will  be  sent 
to  the  rifleman,  and  a  negative  score  is  placed  in  his  data  file. 

Operation  remains  locked  in  the  session  loop  until  an  escape  is 
signaled  by  the  squad  leader's  pushing  the  start/print  button.  This 
causes  a  system  interrupt  and  control  passes  to  "PRINT  RESULTS"  which 
produces  output  as  shown  on  Figure  111-41.  The  program  then  returns 
to  the  "INITIALIZE"  block  and  data  records  are  initialized  in  prepara¬ 
tion  for  the  next  training  session. 

4.  SCORE  DISPLAY  AND  WORST  PERFORMANCE 

The  final  score  for  each  trainee  is  calculated  by  adding  the  fol¬ 
lowing  items: 

100  x  (Hits  per  shot) 

60  x  (Near  misses  per  shot) 

30  if  average  reaction  time  =0.5  seconds,  or  less,  or 

20  if  average  reaction  time  >0.5  but  <0.9  seconds,  or 

10  if  average  reaction  time  >  0.9  but  <  1.3  seconds,  or 

0  if  average  reaction  time  >1.3  seconds. 

-2  x  (Number  of  targets  ignored) 

When  the  light  emitting  diode  or  "LED"  is  lit  under  a  trainee's 
CRT  column,  he  is  the  "WORST  SHOOTER"  inasmuch  as  he  has  the  highest 
total  of  these  items: 

•  Misses 

•  Shots  with  no  target  present 

•  Targets  ignored  -  PP  the  worst  shooter  is  recomputed  each 
time  a  target  is  not  present  on  the  screen. 

5.  SELF  CHECK 

The  SWAT  self  check  has  two  parts:  (1)  an  SBC  80/20  check,  and 
(2)  the  interface  board  (IFB)  check.  These  procedures  are  described 
separately. 

a.  SBC  80/20  CHECK 

The  80/20  single  board  computer  checkout  requires  the  inser¬ 
tion  of  an  INTEL  SBC  416  ROM  extender  board  on  which  is  located  the 
test  program  driver  and  a  duplicate  of  the  SWAT  version  1.2  program. 

The  duplicate  program  is  contained  in  five  2708  ROMS.  These  ROMS  are 
located  at  addresses  through  0C000H,  see  Appendix  E. 


The  80/20  check  verifies  proper  operation  of  the  SBC  memory, 

I/O  ports,  timer  and  USART.  A  complete  check  requires  about  a  second. 

To  run  the  check,  the  normal  50  pin  connectors  to  "Jl"  and  "J2"  of  the 
30/20  must  be  removed  and  replaced  with  a  special  test  strap  which  con¬ 
nects  input  terminals  of  Jl  to  output  terminals  on  J2  and  vice  versa 

The  SBC  416  board  must  also  be  inserted  into  the  computer  card  cage. 

While  not  necessary,  it  may  be  convenient  to  remove  the  interface  board 
to  avoid  damage  to  the  wire-wrap  pins.  The  SWAT  program  is  started  with 

a  reset  in  the  normal  way.  The  first  thina  that  the  SWAT  Droaram  does  is 

to  determine  if  the  SBC  416  board  is  in  the  card  position  on  the  SBC  416. 

If  the  SBC  416  is  in  place,  the  program  finds  a  "1"  located  at  address 
0C000H.  If  it  is  not  in  this  location,  no  transfer  acknowledge  signal 
will  be  returned.  After  a  millisecond,  therefore,  the  attempt  is  aborted 
and  a  "00"  is  read  into  the  8080' s  accumulator.  The  00  occurs  due  to  the 
IK  pull  ups  on  the  inputs  of  inverting  line  drivers.  With  a  1  found  at 

0C00H,  the  test  proqram  is  conducted,  while  if  a  00  is  returned,  the 
normal  SWAT  program  starts. 

The  80/20  test  signals  its  completion  by  turning  on  a  "LED"  lo¬ 
cated  near  the  top  right  corner  of  the  80/20  barod.  If  no  flashes  are 
noted,  the  test  was  completed  in  a  satisfactory  manner.  If  flashes  occur, 
some  trouble  was  uncovered,  the  nature  of  which  is  indicated  by  the  number 
of  quick  flashes  grouped  together.  The  trouble  code  is: 

1  FLASH  ==  RAM  FAILURE 

2  FLASHES  «  ROM  FAILURE 

3  FLASHES  ==  1/0  FAILURE 

4  FLASHES  ==  TIMER  TOO  SLOW 

5  FLASHES  «  TIMER  TOO  FAST 

6  FLASHES  ==  USART  FAILURE 


A  TIMER  TOO  FAST 

6  FLASHES  ==  USART  FAILURE 

A  flash  group  is  sent  for  each  failure  detected,  so  it  is  possi¬ 
ble  that  more  than  one  trouble  code  may  be  detected  during  a  single  80/20 
test.  The  test  may  be  terminated  only  by  turning  off  the  power.  This 
should  be  done,  of  course,  before  any  physical  changes  are  made  to  the 
computer. 

b.  IFB  SELF  TEST 

To  test  the  interface  board,  the  80/20  test  SBC  416  board  may 
be  removed  from  the  card  cage  and  the  IFB  reinserted.  The  normal  50  pin 
rifle  input  strap  connector  and  the  34  pin  strap  connector  must  be  re¬ 
moved.  A  special  strap  must  be  connected  between  the  50  pin  rifle  test 
simulator  output  and  the  50  pin  rifle  input  connector. 

The  CRT  and  Electronic  Data  Terminal,  EDT,  are  needed  for  the 
test.  The  VOTRAX  unit  may  optionally  be  disconnected  or  left  connected. 

To  conduct  the  test,  the  SWAT  system  is  started  as  usual  by  a 
start  or  reset.  When  the  query  "WANT  ID  YES  OR  NO?"  is  presented  on  the 
EDT,  a  control -T  for  "TEST",  should  be  entered.  The  system  should  re¬ 
spond  with: 


RIFLE  SIMULATOR 
STRAP  IN  PLACE? 


If  no  errors  are  found,  the  test  requires  18  to  19  seconds  to 
run,  and  the  system  responds  with: 

TEST  COMPLETE. 

Hitting  any  key  on  the  data  terminal  will  result  in  the  standard  output 
being  typed  out,  as  shown  in  the  attached  listing. 

If  trouble  is  detected,  the  rifle  "ID"  number  will  be  typed  with 
"F"  for  failure  and  a  coded  diagnostic:  RES,  INT  or  DAT. 

RES  ==  The  rifle  did  not  receive  a  reset  pulse. 

INT  ==  The  UPI-41  did  not  receive  the  data  strobe  that  it 
originally  sent. 

DAT  ==  Improper  data  was  received  by  the  UPI-41. 

H.  FILM  ANIMATION 

This  section  describes  the  process  by  which  a  second  projection  film 
is  produced  to  enable  the  electro-optic  rifle  receiver  to  sense  targets 
on  the  movie  screen  and  score  the  trainee's  performance. 

A  black-and-white  animated  companion  film  is  prepared  for  simultan¬ 
eous  syncronized  projection  on  an  infrared  projector  with  a  full  color 
battle  scenario  on  a  second  projector.  The  black-and-white  film  is  ani¬ 
mated  frame-by-frame  to  produce  a  clear  target  zone  surrounded  by  an 
opaque  field.  If  more  than  one  target  is  present  then  more  than  one 
clear  target  zone  is  animated  within  a  frame. 

Infrared  light  is  projected  through  the  clear  target  area  to  pro¬ 
duce  a  target  zone  for  the  rifle  electro-optic  sensors.  This  infrared 
target  zone  is  usually  animated  to  directly  overlay  the  visual  target 
being  projected  by  the  full  color  battle  scenario  but  may  also  be  super¬ 
elevated  and/or  lead  the  target  as  required. 

Film  animation  has  been  accomplished  by  inspecting  a  battle  scenario 
frame-by-frame  on  a  Movieola  (a  type  of  laboratory  film  analyzer).  Each 
frame  is  inspected  for  the  total  number  of  targets,  and  target  location. 
Each  frame  is  catalogued  and  then  compared  to  each  other  for  target  range 
and  rate  of  transverse  motion  measured.  Lead  and  superelevation  calcula¬ 
tions  are  computed  from  this  data  for  final  animation. 

Selected  target  shapes  and  sizes  are  prepared  for  use  in  the  anima¬ 
tion  process.  These  shapes  have  usually  been  silhouette,  oval,  and 
circles.  The  target  shape  is  realized  as  an  opaque  shape  on  a  clear 
strip  of  acetate. 
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The  battle  scenario  is  again  viewed  frame-by-frame  in  the  animation 
process.  The  animator  locates  targets  according  to  the  script  and  over¬ 
lays  on  appropriate  target  size  and  shape  on  a  rear  projection  screen. 
Lead  and  superelevation  corrections  are  applied  if  necessary  and  then  the 
battle  scenario  is  removed  while  a  single  frame  of  the  animated  film  is 
exposed. 

Upon  completion  the  entire  animated  film  is  developed  using  a  rever¬ 
sal  process.  This  process  causes  the  opaque  target  shapes  to  become 
transparent  and  the  background  to  be  opaque.  The  contrast  is  adjusted 
for  a  D*  *  2.5  or  better.  A  D*  of  2.0  has  been  used  successfully. 

Copies  are  made  of  this  master  animated  film  and  both  battle  scene 
and  the  animated  films  are  edge  numbered  for  easy  identification  and 
editing.  A  final  coat  of  laquer  is  then  added  to  protect  the  emulsions 
and  extend  the  life  of  the  films. 

The  resolution  of  man  targets  beyond  300  meters  is  difficult  and  is 
a  limitation  of  the  system  using  standard  16mm  film. 

No  research  was  done  on  automating  the  production  of  the  IR  target 
film.  It  is  our  opinion  that  research  in  this  area  could  reduce  both 
the  time  and  expense  of  producing  the  infrared  target  film. 


SECTION  IV 


CONCLUSIONS 

The  SWAT  was  tested  successfully  by  both  the  U.S.  Amy  and  also  by 
the  U.S.  Marine  Corps  but  under  the  name  UIWT  (Universal  Infantry  Weapon 
Trainer).  The  two  systems  are  virtually  identical  except  for  the  number 
of  trainee  firing  positions,  the  SWAT  having  five  while  the  UIWT  consists 
of  four  firing  positions. 

The  U.S.  Amy  test  was  conducted  by  the  U.S.  Army  Infantry  Board 
(USAIB)  for  the  Directorate  of  Training  Developments,  U.S.  Amy  Infantry 
School  (USAIS),  Fort  Benning,  Georgia  (See  Reference  9).  The  test  was 
conducted  22  January  through  5  March  1980,  employing  test  soldiers  from 
the  U.S.  Amy  Marksmanship  Unit  and  TOE  units.  Testing  included  use  of 
the  SWAT  as  a  vehicle  for  training  riflemen  in  the  technique  of  engaging 
moving  personnel  targets.  A  comparison  of  record  fire  scores,  achieved 
by  personnel  trained  on  the  SWAT,  on  the  Infantry  Remoted  Target  System, 
Defense  Test  Range,  and  a  no-training  control  group,  was  conducted  to 
address  training  potential.  Figure  IV-1  indicates  the  results  of  firers 
interviews  concerning  the  SWAT  weapon  and  SWAT  targets.  Some  of  the  major 
findings  were  that  test  soldiers  improved  their  firing  performance  on 
three  iterations  of  SWAT  firing,  but  not  on  three  iterations  of  DTR  firing. 
It  is  stated  that  "this  test  does  give  some  evidence  of  the  SWAT  system's 
potential  for  training  transfer.  However,  a  final  estimate  of  the  system's 
training  value  cannot  be  made  until  a  training  program  is  developed  which 
optomizes  SWAT  performance". 

An  evaluation  of  the  UIWT's  training  effectiveness  and  potential  was 
performed  in  November  1979  at  Camp  Lejeune,  North  Carolina  by  the  U.S. 

Marine  Corps  (See  Reference  8).  The  evaluation  was  conducted  by  three  mem¬ 
bers  of  Code  N-241 ,  Naval  Training  Equipment  Center.  Three  different 
groups  of  Marines  acted  as  test  subjects  or  provided  expert  opinion.  They 
are  as  follows: 

(a)  120  enlisted  men  took  part  in  a  quasi -experiment  designed  to 
detemine  the  benefits  of  the  UIWT  versus  a  more  traditional  training 
method , 

(b)  Eight  highly  experienced  snipers  evaluated  the  UIWT  for  its  train¬ 
ing  capabilities.  These  Marines  also  serve  as  marksmanship  instructors, 

(c)  A  variety  of  Gneral ,  Field  and  Company  grade  officers  fired  the 
simulator  and  gave  opinions  concerning  its  usefulness. 

Generally,  the  infantrymen  were  very  positive  about  their  experience 
with  the  UIWT.  They  would  like  to  see  deployment  of  the  device  into 
actual  training  situations.  An  overwhelming  number  stated  that  they 
would  rather  train  in  the  UIWT  than  on  the  pop-up  range.  The  elements  of 
realism  and  immediate  feedback  were  the  main  reasons  for  infantrymen  sat¬ 
isfaction  with  the  UIWT. 
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Note:  In  all  cases  the  SWAT  rifle  and  targets  are  being  compared 
to  the  M16A1  and  the  DTR  range.  If  there  was  no  difference  between 
them,  then  a  4  was  chosen.  The  farther  away  the  mean  is  from  4, 
the  more  difference  there  Is  between  the  SWAT  and  the  M16A1. 

Figure  IV-1.  Results  of  Firers'  Interview  (Means) 
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Without  exception  the  officers  who  fired  and  observed  the  UIWT 
stated  that  it  was  a  valuable  training  tool.  Some  officers  went  so  far 
as  to  request  that  the  UIWT  prototype  remain  at  Camp  Lejeune  so  that 
they  could  start  training  Marines.  A  number  of  officers  expressed  con¬ 
cern  about  UIWT  maintainability  and  reliability.  They  felt  that  if  the 
UIWT  was  to  be  used  for  large  numbers  of  trainees  it  would  have  to  have 
rigid  specifications  for  reliability. 

The  Marines  suggested  that  there  were  no  special  features  of  the 
UIWT  system  (i.e.,  feedback,  recoil,  instructor  console,  infrared  moni¬ 
tor,  etc.)  which  should  be  deleted.  All  features  seemed  acceptable  and 
desirable  to  those  who  evaluated  the  system. 

The  UIWT  functioned  well  throughout  the  study.  Breakdowns  and  mal¬ 
functions  occurred  on  few  occasions.  This  performance  record  is  even 
more  impressive  when  it  is  considered  that  this  version  of  the  UIWT  is 
a  prototype.  The  maintainability  and  reliability  of  the  UIWT,  based 
upon  this  evaluation,  must  be  considered  as  good.  Future  iterations  in 
the  production  format  should  only  serve  to  increase  these  two  character¬ 
istics. 

Despite  test  limitations,  the  UIWT  evaluation  was  considered  to  be 
successful  by  those  participating  in  the  evaluation.  The  overwhelming 
enthusiasm  for  the  training  device,  exhibited  by  the  Marine  personnel 
who  fired  it  and  observed  it,  gave  evidence  of  its  potential  usefulness. 

The  evaluation  of  the  UIWT  at  Camp  Lejeune  produced  postion  findings. 
Every  characteristic  of  the  UIWT  met  with  approval.  An  evaluation  of 
trial  scores  on  the  UIWT  provided  empirical  evidence  of  the  UIWT's  effec¬ 
tiveness. 

No  formalized  Program  of  Instruction  (POI)  exists  for  team  firing 
training.  Consequently,  none  was  administered  with  the  UIWT  evaluation. 
This  area  of  training  should  be  given  consideration  in  the  future.  Pre¬ 
sently  the  instructor  merely  gives  informal  directions  on  how  a  fire  team 
should  function.  The  same  informal  procedure  is  followed  for  marksman¬ 
ship  instruction.  Observation  of  the  UIWT  evaluation  identified  a  number 
of  factors  which  should  be  formally  addressed  in  instruction  for  team 
f  i  re . 

(a)  How  large  is  a  fire  sector? 

(b)  Enemy  tactics  (i.e.,  Warsaw  Pact,  Vietnamese) 

(c)  Ammunition  rationing 

(d)  Change  in  fire  team  tactics  if  a  member  is  made  inoperable 
(i.e.,  gun  jams  or  casualty) 

There  is  presently  no  training  which  accomplishes  the  objectives 
that  the  UIWT  addresses  (e.g.,  fire  team  training,  on  board  ship  prac¬ 
tice  and  training,  and  providing  realistic  combat  scenarios  which  require 
application  of  proper  aiming  techniques).  Since  the  Marine  Corps  deems 
these  objectives  to  be  important,  it  is  recommended  that  the  UIWT  effort 
be  funded  and  prepartion  be  made  for  contractor  production  of  the  system. 


In  addition,  development  of  the  UIWT's  capability  to  simulate  other  in¬ 
fantry  weapons  such  as  the  TOW,  DRAGON,  motars,  etc.,  should  continue. 

Also,  any  formalized  instruction  should  include  techniques  for  firing 
at  moving  targets  (including  leading,  firing  into  brush  cover,  and  fir¬ 
ing  through  smoke).  It  is  possible  for  an  instructor  to  forget  to 
cover  many  of  these  important  points  when  it  is  presented  in  an  informal 
manner. 

The  UIWT  has  a  counter  which  allows  the  number  of  rounds  fired  during 
a  session  to  be  accurately  assessed.  This  counter  showed  that  over  40,000 
electronic  rounds  were  used  for  the  evaluation.  Presently,  costs  for  live 
M-16  ammunition  are  approximately  nine  cents  per  round.  At  this  rate,  the 
UIWT  accomplished  an  ammunition  cost  savings  of  nearly  $4,000.  This  dollar 
figure  if  applied  to  a  year’s  worth  of  training,  would  be  a  significant 
savings.  At  this  rate  the  UIWT  would  pay  for  itself  in  a  year.  If  the 
transportation  fuel  costs  were  added  to  the  ammunition  cost  the  savings 
would  be  even  more  impressive. 
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APPENDIX  A 


FUNCTIONAL  DESCRIPTION  OF  CONSOLE  SWITCHES 

Figure  A-l  displays  the  Instructor's  Console.  The  right  side 
display  screen  presents  printed  columns  showing  trainees  results  each 
time  they  fire,  and  indicates  by  a  red  light  which  trainee  is  doing 
the  poorest.  The  miniature  toggle  switches  must  be  in  the  up  (or  on) 
position  for  any  trainee  participating  in  the  exercise.  The  left  side 
display  screen  presents  positions  of  movie  targets  and  indicates  where 
trainee  is  aiming  and  where  his  round  has  been  fired  in  relation  to 
where  the  target  appeared. 

On  the  main,  center  panel,  the  instructor  operated  switches  are 
arranged  and  labeled  in  groups  by  function.  They  are: 

1.  Main  power  (single  switch) 

2.  Microcomputer  (three  switches) 

3.  Computer  Voice  (two  switches) 

4.  Projector  (two  switches) 

5.  Motor  (three  position  rotary  switch) 

6.  Boresite  (single  switch) 

7.  Recoil  (single  switch) 

8.  Score  display  (single  switch) 

9.  Audio  Communications  (eleven  switches) 

10.  Weapon  motion  system  (eleven  switches) 

The  operation  of  these  switches  follows: 

MAIN  POWER  -  Applies  the  ac  power  to  entire  console. 

MICROCOMPUTER  -  "On"  applies  operating  voltages  to  computer. 

"Reset"  clears  all  previous  data  from  computer  and  asks  if 
individual  identification  of  each  trainee  is  required.  If  none  is  re¬ 
quired,  depress  any  key  except  Y  (For  "yes").  Computer  will  signify 
system  is  ready  by  printing  out  "let's  start". 

"Start  print"  starts  the  hard  copy  printout  process  printing 
trainees  results  and  analysis. 

If  individual  scoring  identification  is  required,  depress  the  let 
ter  Y  on  typewriter.  Computer  will  ask  you  for  today's  date,  session 
number  and  to  enter  in  name  of  first  trainee,  then  instruct  you  to 
identify  the  others  in  same  manner.  NOTE:  Names  of  trainees  must  be 
limited  to  those  containing  no  more  than  six  letters. 
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WEAPON  MOTION  DISPLAY  SCORE  DISPLAY 


Figure  A-l.  Instructor's  Console  -  Front  Panel  Control  Locations 


COMPUTER  VOICE  -  Permits  instructor  to  activate  the  computer 
voice  carried  to  trainee  headphones.  The  voice  reset  button  should 
be  pushed  whenever  the  computer  voice  is  turned  on. 

PROJECTORS  -  "Locked-Unlocked"  switch  either  locks  or  unlocks 
synchronous  motors  of  IR  and  visual  projectors  together  so  that  target 
frame  and  visual  frame  coincide,  or  permits  instructor  to  operate  pro¬ 
jectors  independently  during  alignment.  For  normal  operation  the 
switch  should  remain  locked. 

"Start  Movie"  physically  starts  the  movie  if  motor  switch 
is  not  in  off  position. 

MOTOR  -  This  three  position  rotary  switch  performs  the  function 
of  applying  ac  power  first  to  projector  motor  and  then  to  projector 
lamps  (this  procedure  is  conventional  in  all  movie  projectors  to  con¬ 
serve  lamp  life). 

BORES IGHT  -  This  switch  allows  instructor  to  override  the  "tar¬ 
get  present"  signal  delivered  to  computer  by  the  projector,  so  that 
trainees  can  fire  at  the  target  box  instead  of  the  movie  screen. 

When  lower  half  of  this  switch  is  illuminated  the  system  is  in  normal 
(movie  screen)  position. 

RECOIL  -  This  switch  gives  instructor  the  option  to  conduct  ex¬ 
ercise  with  or  without  rifle  recoil. 

SCORE  DISPLAY  -  This  switch  clears  the  right  side  screen  display. 

AUDIO  COMMUNICATIONS  -  This  bank  of  eleven  switches  permits  the 
instructor  to  listen  in  on  the  headphone  of  any  trainee,  and  talk  to 
any  one  or  all  trainees. 

WEAPON  ACTION  SYSTEM  -  This  bank  of  eleven  switches  allows  the 
instructor  to  view,- on  the  left  side  display  screen,  exactly  where 
any,  or  all,  trainees  are  aiming  and  firing  in  relation  to  where  tar¬ 
gets  appeared  on  movie  screen.  The  upper  bank  of  switches  selects  the 
trainee  to  be  observed.  The  lower  bank  of  switches  either  energizes  a 
trainee's  laser  continually  or  only  when  he  had  fired  his  rifle.  These 
switches  supply  operating  power  to  the  laser  attached  to  each  rifle, 
and  must  be  held  pushed  in  for  the  laser  to  operate. 
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APPENDIX  B 
TEST  EQUIPMENT 


1.  LASER  CHECKER 

The  laser  checker  test  box.  Figure  B-I ,  allows  instructor  to 
make  a  go-on-go  check  of  the  SWAT  tracking  laser  which  is  attached 
to  the  simulated  rifle.  Referring  to  the  schematic,  Q1  is  a  silicon 
photodiode  which  responds  to  IR  energy  from  the  rifle  laser.  When 
the  rifle  trigger  is  pulled,  with  the  laser  positioned  a  few  inches 
from  the  detector,  Q1  detects  the  infra  red  pulse,  and  delivers  an 
output  signal  to  Q2. 

Q2  is  a  high  gain  amplifier  whose  output  is  a  sharply  rising 
positive  pulse  that  provides  the  gating  signal  required  to  turn  on 
silicon  controlled  rectifier  Q3,  placing  its  anode  at  ground  poten¬ 
tial,  and  allowing  capacitor  C3  to  begin  charging  up  toward  Vcc 
through  resistor  R5,  and  energizes  the  Sonalert  alarm  producing  an 
audio  tone  of  approximately  2  KHz. 

Q4  is  a  unijunction  transistor  oscillator  which  is  enabled  when¬ 
ever  capacitor  C3  is  returned  to  ground.  As  capacitor  C3  starts  to 
charge  toward  Vcc  it  produces  an  exponentially  rising  DC  voltage  at 
the  emitter  junction  of  Q4.  When  this  voltage  reaches  the  breakdown 
point  for  this  particular  unijunction,  Q4,  conducts  heavily,  shorting 
emitter  to  ground  thereby  allowing  the  charge  on  C3  to  dissipate, 
lifting  the  anode  of  Q3  off  of  ground  which  turns  off  the  SCR,  dis¬ 
abling  the  audio  alarm,  and  the  entire  circuit  is  again  ready  for  re¬ 
cycling. 

Power  for  the  laser  checker  is  externally  provided  via  binding 
posts.  Any  battery  voltage  from  six  to  thirty  volts  may  be  used.  The 
audio  alarm  sound  level  varies  with  battery  voltage.  Fifteen  volts 
provides  more  than  adequate  sound  level  for  an  average  room. 

2.  RIFLE  CHECKER 


By  using  an  ordinary  penlite  flashlight  as  a  source  of  light 
energy,  and  directing  the  light  into  the  lens  of  the  rifle  receiver, 
the  rifle  checker  test  box  allows  the  instructor  to  confirm  that  the 
four  quadrant  detector  in  the  rifle  is  functioning,  the  "Full  Clip" 
feature  of  the  SWAT  system  is  operating  correctly,  that  the  rifle 
mode  select  switch,  and  rifle  trigger  switch,  are  also  functioning 
properly.  In  addition,  the  SWAT  laser  can  be  tested  using  the  laser 
checker  in  conjunction  with  the  rifle  checker. 

Detector  Test:  Referring  to  the  schematic  of  the  rifle  checker. 
Figure  B-2,  connections  to  the  rifle  are  made  via  a  T&B  connector 
identical  to  that  with  the  SWAT  system.  Connector  pin  numbers  are 
identified  on  the  schematic.  IC1  is  a  quad  comparator  which  estab¬ 
lishes  the  signal  strength  reference  level  of  the  IR  energy  received. 
Each  of  the  four  comparators  parameters  are  identical.  The  desired 
reference  level  is  established  on  the  non-inverting  inputs  of  IC1. 

The  rifle  detector  outputs  appear  as  signal  at  the  inverting  inputs 
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of  IC1.  When  this  input  signal  is  of  an  amplitude  equal  to  the 
reference  level  established  via  the  variable  resistor,  the  outputs 
of  IC1  rise  to  a  logical  "HIGH".  This  output  "HIGH"  signal  appears 
on  one  input  to  IC2  which  is  a  quad  NAND  gate.  Since  the  remaining 
NAND  inputs  are  permanently  "HIGH",  IC2  produces  a  logical  "LOW"  at 
its  ouput,  providing  a  path  to  ground  for  that  particular  LED,  allow¬ 
ing  it  to  light  up,  indicating  that  the  SWAT  rifle  detector  is  opera¬ 
tional.  By  pointing  the  flashlight  beam  into  the  rifle  receiver  lens 
and  moving  it  about,  it  is  possible  to  observe  that  all  four  quad¬ 
rants  of  SWAT's  rifle  detector  are  indeed  functioning. 

Ammo  Magazine  Test:  One  half  of  IC4  is  a  timer  arranged  to  pro¬ 
duce  one  pulse  of  approximately  five  second  duration  whenever  it  re-  f 

ceives  an  input,  thereby  testing  the  "full  ammo  magazine"  feature  of  | 

SWAT.  A  "full  magazine"  is  simulated  by  one  whose  internally-mounted 
capacitor  has  been  charged.  A  separate,  parti tioned-hol ding/charging  f 

tray  which  accomodates  up  to  30  magazines  is  provided  with  the  instruc-  | 

tor's  console.  In  future  modifications,  this  holding/charging  tray  P 

can  be  incorporated  into  the  console.  Referring  to  the  schematic,  h 

when  a  (charged  capacitor)  full  magazine  is  inserted  in  the  rifle, 
the  capacitor  discharges  into  one  gate  of  IC3,  a  NAND,  providing  a  nega¬ 
tive  going  signal  as  input  to  timer  IC4.  When  IC4  turns  on  its  output 
goes  "HIGH"  allowing  LED  5  to  light  for  approximately  five  seconds.  If 
an  "empty  magazine  (i.e.  one  which  has  expended  its  full  thirty  rounds) 
is  inserted  into  the  SWAT  rifle,  it  cannot  energize  the  circuit  and 
LED  5  will  not  illuminate. 

Laser  Test:  This  test  is  performed  by  one  half  of  IC4.  The  cir¬ 
cuit  is  a  free-running  oscillator  delivering  sharp  positive  pulses  of 
approximately  one  microsecond  duration  at  a  PRR  of  5  KHz.  This  output 
is  directly  connected  to  the  laser  input  via  the  normal  connecting 
cable.  When  the  "laser  test"  button  on  the  rifle  checker  box  is  de¬ 
pressed,  the  output  of  oscillator  IC4  is  allowed  to  trigger  the  laser, 
and  the  laser  will  emit  IR  energy. 

By  setting  up  the  laser  checker*  box  several  inches  from  the  laser, 
an  audio  alarm  tone  indicates  correct  operation  of  the  laser  each  time 
the  test  button  is  depressed.  *Circuit  operation  is  described  in  Para¬ 
graph  1  of  this  Appendix  B. 

Rifle  Trigger  and  Mode  Switch  Test:  Correct  physical  functioning 
of  the  SWAT  rifle  trigger  is  verified  by  observing  the  test  lights  LED  6 
and  LED  7.  LED  6  will  normally  be  on.  When  the  rifle  trigger  is  pulled 
LED  6  goes  off  for  a  fraction  of  time,  LED  7  comes  on  during  that  in¬ 
stant,  and  as  the  trigger  is  pulled  all  the  way  LED  6  comes  back  on  and 
remains  on. 

Rifle  Mode  Switch  Test:  The  SWAT  rifle  mode  select  switch  is  test¬ 
ed  by  observing  the  operation  of  LED  8  and  LED  9.  In  the  semi-auto¬ 
matic  mode,  LED  8  is  on  and  in  the  automatic  mode  LED  9  is  on. 
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An  internal  dual  fifteen  volt  power  supply  provides  operating 
voltages  for  the  SWAT  as  well  as  for  the  pre-amp  receiver  in  the 
SWAT  rifle.  A  single  miniature  dry  cell  forty-five  volt  battery 
within  the  test  box  supplies  operating  power  for  the  SWAT  laser. 

3.  RIFLE  SUBSTITUTION  BOX 


Using  the  rifle  substitution  box,  it  is  possible  to  simulate 
the  operation  of  a  SWAT  rifle  on  the  instructor's  console.  It  can 
simulate  a  rifle  being  fired  either  in  automatic  or  semi-automatic 
mode,  and  can  simulate  the  target  information  normally  received  by 
the  rifle's  quadrant  detector  from  the  projected  movie  image. 

The  rifle  substitution  box  is  connected  to  the  instructor's 
console  via  a  T&B  connector  identical  to  that  on  a  SWAT  rifle.  Power 
for  the  test  box  is  derived  from  the  console.  Operation  of  the 
trigger  switch  and  the  mode  switch  are  obvious.  Capacitor  Cl  simu¬ 
lates  the  capacitor  which  is  internally  mounted  inside  of  each  maga¬ 
zine.  It  remains  in  the  charged  state  via  switch  SW4  as  long  as 
the  test  box  power  switch  is  in  the  "on"  position.  When  the  count¬ 
ing  circuit  in  the  SWAT  electronics  indicates  to  the  computer  that 
thirty  rounds  have  been  expended  by  allowing  no  more  shots,  the  in¬ 
sertion  of  a  new  magazine  is  simulated  by  momentarily  engaging 
switch  SW1 . 

Target  information  is  simulated  by  the  status  of  four  switches, 
SW5,  SW6,  SW7,  and  SW8.  IC1  is  a  free-running  oscillator  delivering 
a  square  wave  at  a  PRR  of  96  Hz  (which  is  the  rate  at  which  the 
projected  IR  Target  energy  is  chopped).  The  output  of  the  oscillator 
is  delivered  to  the  console  via  switches  SW5  through  8  as  simulated 
rifle  detector  signals. 

Referring  to  the  schematic.  Figure  B-3,  the  adopted  convention 
for  the  four  quadrant  rifle  detector  is  shown.  Switches  may  be  in¬ 
dependently  thrown  to  either  ground  (low)  or  to  the  96  Hz  positive 
pulse  output  of  IC1,  constituting  either  a  true  or  a  false  logic 
signal  to  the  SWAT  console.  Any  one  of  ten  possible  combinations  of 
hit  or  near  misses  can  be  duplicated  by  these  four  switches.  For 
example:  Switches  SW3,  SW4  "Low"  and  switches  SWT ,  SW2  "High"  will 
be  recorded  by  the  computer  as  a  "low  right"  signal  from  the  simulated 
rifle.  Similarly,  SW1,  SW4,  SW2  "High"  and  SW3  "Low"  would  simulate 
a  SWAT  rifle  detector  condition  where  IR  energy  is  centered  on  those 
quadrants.  This  information  would  be  interpreted  by  the  computer  as  a 
trainee  having  fired  "Low"  at  the  target. 

4.  BORES IGHT  BOX 


The  boresight  box.  Figure  B-4,  allows  the  instructor  to  ini¬ 
tially  check  the  closeness  of  SWAT  rifle  boresight  alignment.  A 
free  running  oscillator  IC1  with  a  PRR  of  96  Hz  delivers  input  pulses 
to  a  Darlington  amplifier  which  consists  of  Q1  and  Q2.  The  Darlington 
amolifier  pulses  a  high  intensity  incandescent  lamp  at  96  Hz.  The 
visile  portion  of  light  is  filtered  out  so  the  rifle  Is  aimed  at  the 
black-outlined  aiming  pip  on  the  box,  fires  the  weapon,  receives  audio 
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feedback  results  via  his  headphones,  and  adjusts  rifle  sights  for 
accurate  alignment  of  front  and  rear  sights. 

Power  for  the  boresight  box  is  supplied  externally  via  one 
small,  12  volt  rechargeable  sealed-gel  battery.  The  boresight 
box  can  also  be  utilized  as  a  marksmanship  target.  The  instructor 
simply  enables  the  front  panel  "target  present"  switch  allowing 
the  SWAT  console  to  disregard  target  information  from  the  movie 
screen,  and  instead,  to  accept  target  information  from  the  bore¬ 
sight  box. 
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Figure  B-3.  Rifle  Substitution  Box 


Figure  B-4.  Boresight  Box 
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0278H 

LIN 

79 

027EH 

LIN 

80 

0284H 

LIN 

81 

028BH 

LIN 

^*■2 

0290H 

LIN 

83 

U295H 

LIN 

84 

029HH 

LIN 

85 

M2M2H 

LIN 

86 

02M2H 

L  IN 

87 

h2H  .'FI 

l.  IN 

02B2H 

LIN 

89 

•  12B8H 

l  IN 

90 

n2bl*H 

LIN 

91 

0:I.2H 

LIN 

92 

L  IN 

92 

W2t'6H 

LIN 

94 

•  i,-l+  H 

1.  1 N 

'-<5 

C~3 


02E3H  LIN  '  So 
02EBH  LIN  97 

82F7H  LIN  98 

02FEH  LIN  99 

0303H  LIN  100 

0308H  LIN  101 

038DH  LIN  102 

0318H  LIN  103 

031EH  LIN  104 

0323H  LIN  105 

0326H  LIN  106 

032BH  LIN  107 

0339H  LIN  108 

033FH  LIN  109 

0347H  LIN  110 

034CH  LIN  111 

0353H  LIN  112 

0360H  LIN  113 

036 7H  LIN  114 

036CH  LIN  115 

0371H  LIN  116 

0376H  LIN  117 

0281H  LIN  118 

03S7H  LIN  119 

0395H  LIN  120 

029BH  LIN  121 

03N4H  LIN  122 

03IFI9H  LIN  123 

03NEH  LIN  124 

03B3H  LIN  125 

03B6H  LIN  126 

03C7H  LIN  127 

83D5H  LIN  128 

03DBH  LIN  129 

03E3H  LIN  130 

03E8H  LIN  131 

0403H  LIN  132 

0400H  LIN  133 

0411H  LIN  134 

0416H  LIN  135 

042BH  LIN  136 

0430H  LIN  137 

0437H  LIN  138 

0437H  LIN  139 

043FH  LIN  140 

0442H  LIN  141 

MOD  TIMERMODULE 
391FH  SVM  MEMORV 
385CH  SVM  LSTIMEBVTE 
385DH  SVM  MSTIMEBVTE 
385EH  SVM  TIME 
285EH  SVM  LOWTIMEBVTE 
285FH  SVM  HIQHTIMEBVTE 
0442H  SVM  TIMERSTRRT 
045CH  SVM  TTVTIMER 
0469H  SVM  VOTRftXTIMER 
0476H  SVM  CLOCKRE0D 
0443H  LIN  8 

0443H  LIN  9 

044 7H  LIN  10 

044BH  LIN  11 

044FH  LIN  12 

0453H  LIN  13 

0457H  LIN  14 

845BH  LIN  15 

045»*M  LIN  16 


C-4 


MICROCOPY  RESOLUTION  TEST  CHART 
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o-*u,n 

1.114 

**•4 

04CCM 

LIN 

46 

04D5H 

LIN 

47 

04DRH 

LIN 

48 

04E1H 

LIN 

49 

04F3H 

LIN 

50 

04F6H 

LIN 

51 

0500H 

LIN 

52 

©503H 

LIN 

53 

030CH 

LIN 

54 

0513H 

LIN 

56 

0521H 

LIN 

57 

052 1H 

LIN 

58 

052DH 

LIN 

59 

052CH 

LIN 

60 

054EH 

LIN 

61 

856DH 

LIN 

62 

057DH 

LIN 

62 

0588H 

LIN 

64 

0588H 

LIN 

65 

0588H 

LIN 

66 

0593H 

LIN 

67 

059BH 

LIN 

68 

059FH 

LIN 

69 

0584H 

LIN 

70 

0588H 

LIN 

71 

85B2H 

LIN 

72 

05B6H 

LIN 

73 

05B8H 

LIN 

74 

05BFH 

LIN 

75 

05C-8H 

LIN 

76 

05D4H 

LIN 

77 

85D4H 

LIN 

78 

85EEH 

LIN 

79 

85FHH 

LIN 

00 

05FDH 

LIN 

81 

068DH 

LIN 

82 

©615H 

LIN 

83 

061 DH 

LIN 

84 

0625H 

LIN 

85 

0625H 

LIN 

86 

062HH 

LIN 

87 

062FH 

LIN 

88 

0632H 

LIN 

89 

0638H 

LIN 

90 

063RH 

LIN 

91 

063FH 

LIN 

92 

0644H 

LIN 

93 

0647H 

LIN 

94 

064FH 

LIN 

95 

064FH 

LIN 

96 

0654H 

LIN 

97 

0659H 

LIN 

98 

065CH 

LIN 

99 

0664H 

LIN 

100 

0664H 

LIN 

101 

0669H 

LIN 

102 

066EH 

LIN 

'  103 

067 1H 

LIN 

104 

0685H 

LIN 

105 

0685H 

LIN 

106 

068CH 

LIN 

108 

0680H 

LIN 

109 

0600H 

LIN 

110 

068OH 

LIN 

111 

06B2H 

LIN 

112 

C-6 


WWi  r. 

XX-1 

06B7H 

LIN 

114 

06C7H 

LIN 

116 

06D7H 

LIN 

117 

06E1H 

LIN 

118 

06E4H 

LIN 

119 

06E9H 

LIN 

120 

06E9H 

LIN 

121 

06EEH 

LIN 

122 

06F1H 

LIN 

123 

06F2H 

LIN 

124 

86F2H 

LIN 

125 

0700H 

LIN 

126 

070RH 

LIN 

127 

0719H 

LIN 

129 

072DH 

LIN 

130 

0737H 

LIN 

131 

0738H 

LIN 

132 

073FH 

LIN 

133 

0748H 

LIN 

134 

074DH 

LIN 

135 

0752H 

LIN 

136 

0757H 

LIN 

137 

0757H 

LIN 

138 

075EH 

LIN 

139 

0769H 

LIN 

140 

076RH 

LIN 

141 

076RH 

LIN 

144 

0778M 

LIN 

145 

0783M 

LIN 

146 

0798H 

LIN 

147 

07C0H 

LIN 

148 

07C7H 

LIN 

149 

67CCH 

UN 

150 

8701M 

LIN 

151 

87DFH 

LIN 

152 

07F8H 

LIN 

153 

8808H 

LIN 

154 

0S21H 

LIN 

156 

0S29H 

LIN 

157 

0832H 

LIN 

158 

8S32H 

LIN 

159 

0839H 

LIN 

168 

083EH 

LIN 

161 

MOO 

CONSOLEMOOULE 

G91FH 

SVM 

MEMORV 

083FH 

SVM 

HELLO 

38C9H 

SVM 

I 

38CRH 

SVM 

V 

38CBH 

SVM 

GOS 

085 1H 

SVM 

TTVSET 

8869H 

SVM 

TTVRES 

0871H 

SVM 

VOTRRXSET 

087RH 

SVM 

VOTRES 

0S91H 

SVM 

CIN 

8891H 

SVM 

RXROV 

08R1H 

SVM 

TXROV 

88HFH 

SVM 

COOT 

38CCH 

SVM 

ITEM 

08C2H 

SVM 

BITDUNP 

08C8M 

SVM 

PRNTNUM 

0912H 

SVM 

PRINT 

38CDH 

SVM 

POINTER 

28CFH 

SVM 

FI  NHL 

0825H 

SVM 

LOOP 

0943H 

SVM 

GREETING 

C-7 


Owwin 

0851H 

0855H 

0859H 

085DH 

0868H 

0864H 

0868H 

0869H 

0869H 

086DH 

0870H 

0871H 

0871H 

8875H 

0879H 

087RH 

087AH 

087EH 

0882H 

0886H 

088 AH 

088DH 

8890H 

0891H 

0891H 

0899H 

089CH 

08A1H 

08A1H 

0881H 

08ABH 

88AEH 

88AFH 

08B3H 

08B9H 

08BCH 

08C1H 

08C2H 

0SC2H 

08C7H 

08C8H 

0SC8H 

08COM 

08C-BH 

08EDH 

0SF2M 

08F9H 

0980H 

0907H 

090CH 

0911H 

0912H 

0918H 

0925H 

0931H 

0928H 

093FH 

0942H 

0943H 

0943H 

0949H 

094CH 

094OH 


391FH 


L.  1  f  « 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

LIN 

MOO 

SVM 


10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
48 

41 

42 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

64 

65 

66 

67 

68 
69 
76 

71 

72 

73 

74 

RESULTSMODULE 

MEMORY 


>  y 


) 
1 
J 

J 


W-J 


J 


/ 


.) 

) 


C-8 


.jtjyin  5TH  net-*  rim. 

38D4H  SVM  I 


38D5H  SVM 
3806H  SVM 
38D7H  SVM 
3808H  SVM 
0R24H  SVM 
38DMH  SVM 
094EH  SVM 
0956H  SVM 
0964H  SVM 
096BM  SVM 
0974H  SVM 
097BH  SVM 
0988H  SVM 
0991H  SVM 
099FH  SVM 
09R7H  SVM 
09B4H  SVM 
09BCH  SVM 
09C8H  SVM 
09D4H  SVM 
09E6H  SVM 
09E9M  SVM 
©9FBH  SVM 
0R0RH  SVM 
0R12H  SVM 
0R6EM  SVM 
0R9DH  SVM 


Z 

SUMSHOTS 

NERRMISSES 

RVGTIME 

CONVRT 

HEX 

RIFLEID 

TOTRLSHOTS 

RIFLEHIT 

RIFLEMISS 

RIFLELOW 

RIFLELOWRICiHT 

RIFLERIQHT 

riflehigmpight 

RIFLEHIQH 

RIFLEHIGHLEFT 

RIFLELEFT 

RIFLELOWLEFT 

RIFLETURKEV 

R I FLETRRGET I GNORED 

BLRNK 

HOWMHNVSHOT  S 

RVERRGET1ME 

UNITS 

VOURSCORE 

PRESENTRESULTS 

onerifleresults 


0RC2H  SVM 

TVPEIT 

0624H  SVM 

SUM 

0B3CH  SVM 

SUM2 

0R24H  LIN 

24 

0R28H  LIN 

26 

0R36H  LIN 

27 

0R56H  LIN 

28 

0R66H  LIN 

29 

•3R6DH  LIN 

38 

0R6EH  LIN 

SI 

0H6EH  LIN 

52 

0R6FH  LIN 

5  3 

0R72H  LIN 

54 

0R78H  LIN 

55 

8R7EH  LIN 

56 

0R85H  LIN 

58 

0R8BH  LIN 

59 

BR91H  LIN 

60 

0R91H  LIM 

61 

0R97H  LIN 

62 

0R9OH  LIN 

63 

0RRBH  LIN 

64 

0RC2H  LIN 

65 

0RC2H  LIN 

66 

0RC8H  LIN 

67 

8RCEH  LIN 

68 

0RO7H  LIN 

69 

0RDDH  LIN 

70 

0RE3H  LIN 

71 

0RERH  LIN 

72 

0600H  LIN 

73 

0806H  LIN 

74 

0G0CH  LIN 

75 

0B12H  LIN 

76 

0619H  LIN 

77 

081FH  LIN 

78 

0B24H  LIN 

79 

a . m  - 1  Ifr f  nn ~  '^r  I. ■ ■  I  Wir«>MK<«M^ii'lwWiiiTiiiiii  niimmm.  -  ■ 


bb3*'H  clN 

am 

9 

1 

1 

0B50H  LIN 

81 

4 

0B57H  LIN 

82 

♦ 

BB5CH  LIN 

82 

0B6RH  LIN 

84 

0B88H  LIN 

85 

n 

0B8FH  LIN 

88 

*> 

0B96H  LIN 

87 

0B99H  LIN 

88 

0B9FH  LIN 

89 

t 

0BB6H  LIN 

90 

-  / 

0BB9H  LIN 

91 

0BBFH  LIN 

92 

9BD2H  LIN 

93 

i 

0BO5H  LIN 

94 

0BDBH  LIN 

95 

0BF2H  LIN 

96 

0BF5H  LIN 

97 

} 

0BFBH  LIN 

98 

0C12H  LIN 

99 

BC15H  LIN 

100 

8C1BH  LIN 

101 

,  } 

0C22H  LIN 

102 

0C35H  LIN 

103 

- .» 

0C3BH  LIN 

104 

l 

0C52H  LIN 

105 

X  J 

0C55H  LIN 

106 

0C5BH  LIN 

107 

0C72H  LIN 

108 

1 

0C75H  LIN 

109 

0C7BH  LIN 

110 

0C92H  LIN 

111 

/‘tA 

8C95H  LIN 

112 

I 

■»  / 

6C9BH  LIN 

112 

0CB2H  LIN 

114 

0CB5H  LIN 

115 

j 

0CBBH  LIN 

116 

* 

0Cl'2H  LIN 

117 

8CD5H  LIN 

118 

0CI»BH  LIN 

119 

1 

0CF2H  LIN 

120 

x  / 

0CF5H  LIN 

121 

0CFBH  LIN 

122 

l 

01-12H  LIN 

122 

t 

0015H  LIN 

124 

j  Ot-iBH  LIN 

125 

01>2EM  LIN 

126 

) 

0D31H  LIN 

±27 

0D37H  LIN 

128 

0D4FH  LIN 

129 

0D54M  LIN 

120 

) 

0C-7CH  LIN 

131 

X  -  / 

0D84H  LIN 

132 

0t'8FH  LIN 

133 

0096H  LIN 

134 

! 

0O9OH  LIN 

135 

0L-02H  LIN 

136 

0L09H  LIN 

127 

\ 

•xi 

8D0EH  LIN 

138 

f 

0UB4H  LIN 

139 

0l*B9H  LIN 

140 

01'BEM  LIN 

141 

) 

0DC4H  LIN 

142 

t 

0DC7H  LIN 

143 

■  0DCOH  LIN 

144 

\ 

■  0C4>0H  LIN 

145 

\  j 

‘i 

J 

C-10 

,  'TWEr  ■■  ww.'A6Wsw;!'it  ’^sw'wsaw;  ^uyiggfpy'?..?*  ^  ■  ?■ 


euvon  u(i 
00O6H  LIN 
8D00H  LIN 
6D0EH  LIN 
MOO 
391FH  SVM 
38D6H  SVM 
0OOFH  SVM 
0E09H  SVM 
0E22H  SVM 
0E48H  SVM 
380CH  SVM 
3800H  SVM 
0E7EH  SVM 
0ED5H  SVM 
38DEH  SVM 
38E0H  SVM 
38E2H  SVM 
38E3H  SVM 
0F62H  SVM 
0E66H  SVM 
38E4H  SVM 
38E6H  SVM 
0E7EH  LIN 
0E7EH  LIN 
0E89H  LIN 
0E8FH  LIN 
0E94H  LIN 
0E97H  LIN 
0ER2H  LIN 
0ER8H  LIN 
0ERBH  LIN 
0EB0H  LIN 
0EBBH  LIN 
0EC1H  LIN 
0EC6H  LIN 
0EC9H  LIN 
0ECFH  LIN 
0ED4H  LIN 
0ED4H  LIN 
0ED5H  LIN 
0EOFM  LIN 
0EEDH  LIN 
0EF5H  LIN 
8F-12H  LIN 
8F24H  LIN 
OF2BH  LIN 
0F30H  LIN 
8F4EH  LIN 
0F5RH  LIN 
8F5EH  LIN 
8F61H  LIN 
0F62H  LIN 
0F62H  LIN 
0FBBH  LIN 
0FC1H  LIN 
0FCOH  LIN 
8F06H  LIN 
0FE4H  LIN 
0FF1H  LIN 
0FF8H  LIN 
8FF8H  LIN 
0FFOH  LIN 
1002H  LIN 
10O7H  LIN 
MOD 


147 

148 

149 

FINRLMOOULE 

MEMORV 

M 

FRST 

GOOD 

FRIR 

POOR 

TIMECREDIT 

N 

COMMENT 

HX2RS 

HEXROR 

DECROR 

N 

M 

COMPOSITE 

COMP 

OVERRLL 

DECNUM 

9 

10 

12 

13 

14 

15 

17 

18 
19 
28 
22 

23 

24 
26 

27 

28 

29 

30 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

45 

46 
4? 

49 

50 

51 

52 

53 

54 

55 

56 

57 

INTERPUPT7 


'W1FH  SVM 
1&08H  SVM 
1008H  LIN 
1O0CH  LIN 
1011H  LIN 
1615H  LIN 


memorv 

INTERRUPTROUTINE 

3 

4 

5 

6 


MEMORV  MRP  OF  MOOULE  UIWT 
REftO  FROM  FILE  : FI: UIWT.  TMP 
WRITTEN  TO  FILE  : FI: UIWT 
MODULE  STRRT  ADDRESS  0001H 


STRRT 

STOP 

LENGTH 

REL 

N8ME 

0H 

0H 

1H 

R 

RBSOLUTE 

1H 

10RFH 

10RFH 

« 

RESOLUTE 

13FCH 

13FEH 

3H 

8 

RBSOLUTE 

C-12 


ISIS-JI  IXREF 


UIHT  VERSION  1  2  INTER-WJLE  CROSS-REFERENCE 


RME  1 


ISIS-II  IXREF.  VI  1 
INVOKED  BV: 

-IXREF  Fi  *  1X1  TITIK'UIHT  VERSION  12  INTER-HODULE  CROSS-REFERENCE' >  I 
PRINK  ;F1:0WT.  REF) 


INTER-NODULE  CROSS-REFERENCE  LISTING 


ROGER 
AVGT1NE. 
BITDW 
CIN  .  . 
CLOCKREflO 
COHHENT. 
COMPOSITE 
COOT  .  . 


DOTE  .... 
DECIMAL  . 
DELTRTINE  . 
DONE.  .  .  . 
FAIL 
FILE 

FIRST SHOT  . 
FPTR  .... 
GETRIFLEDATA 
GREETING 
HISTORY.  . 
HUNS  .  . 

I  Of  LAG 
IDNUHBER  .  . 
INTERRUPTROU1 
IOTEST  . 
LSTINEBVTE  . 
HSTIMEBYTE 
NAME  . 

NEARNISSES  . 

PORTSET 

PRESENTRESUL1 

PRINT 

PRNTNUN 

RANTST 

REALGONE 

RIFLE 

RIFLESHOT 

RONTST 

SBCTW 

scat 

SETDATA 

SHOTFWD 

SHOWORST 

SPEED 


ATTRIBUTES;  MODULE  NMCS 


STRUCTURED);  RIFLEDATflNOOULE  RESULTSNOOULE 

ADDRESS;  RESULTSNOOULE  FINALNODUE 

PROCEDURL  CONSOLENODULE  STARTUPNODULE 

PROCEDURE  BYTE;  CONSOLENODULE  TESTPROCNODULE  STARTUPNODULE 

PROCEDURE  ADDRESS;  TIHERH0DU1  RIFLEDATflNOOULE  TESTPROCNODULE  MAINUIMTNODULE 

PROCEDURL  FINRLNODULE  RESULTSHODULE 

PROCEDURL  FINHLNODULE  RESULTSHODULE 

PROCEDURL  CONSOLENODULE  RIFLEDATflNOOULE  TESTPROCNODULE  MAINUIMTNODULE  RESULTSHODULE 
STARTUPNODULE  FINRLNODULE 
8YTE(12);  STARTUPNODULE  RESULTSNOOULE 
BYTE<3)»  RESULTSNOOULE  CONSOLENODULE  STARTUPNODULE 
ADDRESS;  RIFLEDATflNOOULE  MAINUIHTNODULE 
PROCEDURL  TESTPROCNODULE  TESTNOOULE 
PROCEDURL  TESTPROCNODULE 

BYTE,  RIFLEDATflNOOULE  RESULTSNOOULE  STARTUPNODULE  FINRLNODULE 

BYTE(5);  RIFLEDATflNOOULE  MAINUIHTNODULE  STARTUPNODULE 

BYTL  RIFLEDATflNOOULE 

PROCEDURE;  RIFLEDATANODULE  MAINUIMTNODULE 

PROCEDURE;  CONSOLENODULE  MAINUIHTNODULE 

BYTE(S);  STARTUPNODULE  RIFLEDATANODULE 

PROCEDURL  FINRLNODULE 

BYTL  STARTUPNODULE  RESULTSNOOULE 

BVTE<7);  STARTUPNODULE  RESULTSNOOULE 

PROCEDURL  INTERRUPT7  STARTUPNODULE 

PROCEDURE;  TESTPROCNODULE  TESTNOOULE 

BYTL  TIHERNODULE 

BYTL  TINERNODULE 

STRUCTURED);  STARTUPNODULE  RESULTSNOOULE 
BYTL  RESULTSNOOULE  FINRLNODULE 
PROCEDURL  STARTUPNODULE  TESTPROCNODULE 

PROCEDURL  RESULTSNOOULE  NA1NUIMTHOOULE 

PROCEDURE;  CONSOLENODULE  TESTPROCNODULE  RESULTSNOOULE  STARTUPNODULE  FINALHOOUIE 

PROCEDURL  CONSOLENODULE  TESTPROCNOOUIE  RESULTSNOOULE 

PROCEDURL  **  UNRESOLVED  ••  TESTNOOULE 

BYTE.  NAINUIHTNODULE  STARTUPNODULE 

BYTE;  RIFLEDATANODULE  RESULTSNOOULE  FINRLNODULE 

PROCEDURE  BYTL  RIFLEDATANODULE  MAINUIHTNODULE 

PROCEDURE;  *•  UNRESOLVED  ••  TESTNOOULE 

PROCEDURL  «*UMCSOLttD«  TESTPROCNODULE 

STRUCTURE(S);  RIFLEDATANODULE  RESULTSNOOULE  STARTUPNODULE  FINRLNODULE 
PROCEDURE;  STARTUPNODULE  RIFIEDATANOOULE  NAINUIHTNODULE 

BYTL  RIFLOATAHOBULE  STARTUPNODULE 
PROCEDURL  RlFLEDfHRNNLE  HAIMUIHTHOfULE 

STAUCTURKS);  RIFUMVRMDULE  RESULTSHODULE  STARTUPNODULE  FINRLNODULE 


I 


STARTUP.  .... 
SUKH0T5  .... 
TARGETAYAILARLE. 
TARGETDONNTIIC  . 
TARGE  TEXPCCTED 
TARGETTIHE  .  .  . 

TEST . 

TFUtt. . 

TIME . 

TIHERSTART  .  .  . 
TIIERTEST  . 

TRAIN. . 

TSTCtCCK  .... 

TTVRES  . 

TTVSET  . 

TTVTIIER 

TURKEY  . 

1XRDV  . 

UP I STROBE  .  . 
USARTTEST.  .  .  . 
VOTRRXSET  .  .  . 
VOTRAKTIIER  . 

VOTRES  . 

MHCf  AILEDTOSHOOT 


HOWJLE  DIRECTORY 


NODULE  NAME 


CONSOLE HCOULE 

FINALHOWLE  .  . 

INTERRUPT? 

NHINUIMTNOOULE 

RESULTSHOOULE 

RIFLEDATAHOOULE 

STARTUPHOOULE 

TESTHOOU.E  .  . 

TESTPROCMOOULE 

T IHERHOCULE 


UIMT  VttSION  1. 2  INTPHttOOLf  Q8B5-T8FB8K5T 


PROCEDURE  STARTUPNODULE  HAINUIMTHOOULE 

BYTE  RESULTSHOOULE  FINALMOtKJLE 

PROCEDURE  BYTL  RIFLEDATAHOOULE  NAINUINTNODULE 

ADDRESS*  HAINUIMTHOOULE 

BYTE;  HAINUIMTHOOULE 

ADDRESS;  HAINUIMTHOOULE  RIFLEDATAHODULE 

PROCEDURE;  TESTHODULE  HAINUIMTHOOULE 

BYTL  HAINUIMTHOOULE  RIFLEDATAHODULE  STARTUPNODULE 

ADDRESS;  TIICRHOOULE 

PROCEDURL  TIHERHODULE  TESTPROCHODULE  HAINUIMTHOOULE 

PROCEDURE;  TESTPROCHODULE  TESTHODULE 

BYTE;  HAINUIMTHOOULE  STARTUPNODULE  INTERRUPT? 

BYTL  TESTPROCHODULE  HAINUIMTHOOULE 
PROCEDURL  CONSOLEHOOULE  TESTPROCHODULE  RESULTSHOOULE 
PROCEDURL  CONSOLEHOOULE  TESTPROCHODULE  STARTUPHODULE 
PROCEDURL  TIHERHODULE  TESTPROCHODULE  CONSOLEHOOULE 
BYTE;  HAINUIMTHOOULE  RIFLEDATAHODULE  STARTUPNODULE 
PROCEDURL  CONSOLEHOOULE  TESTPROCHODULE  HAINUIMTHOOULE 
PROCEDURL  RIFLEDATAHODULE  TESTPROCHODULE  STARTUPNODULE 
PROCEDURE;  TESTPROCHODULE  TESTHODULE 
PROCEDURL  CONSOLEHOOULE  TESTPROCHODULE 
PROCEDURL  TIHERHODULE  TESTPROCHODULE  CONSCLENOO.LE 
PROCEDURL  CONSOLEHOOULE  TESTPROCHODULE  HAINUIMTHOOULE 
PROCEDURL  RIFLEDATAHODULE  HAINUIMTHOOULE 


FILE  NATL  DISKETTE  NAME 


CONSOL  PLH  UIMT  TST 
FINAL  PLH  UIMTL  3 
INTER  PLH  UIMT1  3 
NRINUi  PLH  UIMTL  2 
RESULT.  PIN  UIMT13 
RIFLE.  PLH  UIMTL  3 
START  PIN  UIMTL  3 
TESTER  PLH  UIMT.  TST 
TSTPRC  PLH  UIMT.  TST 
TIMER.  PLH  UIMT.  TST 
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ISIS-II  PL/M-68  VI 1  COMPILATION  OF  IMKJLE  NfllNUIWTWULE 
OBJECT  NODULE  PUKED  IN  tFi.NAINUI.  OBJ 

COMPILER  INVOKED  BV:  PIN6B  F1HA1NUI.  PLN  1XREF  DEBUG  DATE  <1  FEB  79) 


/•  THIS  PROGRAN  MAS  WITEN  BV  R  C.  TONLE  IN  T>€  WINTER  AND  SPRING  OF  1978  •/ 
/*  IT  ASSUMES  TIC  SYSTEM  NAS  BEEN  RESET  PRIOR  TO  RIMING  ♦/ 

/»  THIS  MODIFICATION,  WICH  RESULTS  IN  A  CHANGE  TO  UIHT  VERSION  L  2 
RESULTS  FROM  THE  REQUIREMENT  TO  SHOW  THE  HORST  SHOOTER  */ 

NAIMUWTMODULE: 

DO; 


2  1  SHOMNORST  PROCEDURE  EXTERNAL; 

3  2  END  SHOWINORST; 

4  1  DECLARE  CLEARtACCUMULATOR  BYTE  AT  (0)  DATA(BAFH);  /*  AFN=>EXCLUSIVE  OR 

ACCUMULATOR  HJTH  ITSELF*/ 

5  1  TXRDV:  PROCEDURE  EXTERNAL;  /•  CHECKS  USART  TRANSMIT  BUFFER  FOR  "EMPTY*  */ 

6  2  END  TTNDY; 

7  1  VOTRES:  PROCEDURE  EXTERNAL;  /*  VOTRAK  RESET  SEE  CONSX  HOWJLE  */ 

8  2  EM)  VOTRES; 

9  1  COUT  PROCEDURE  (1TEM>  EXTERNAL;  /*  SEWS  A  BIT  OUT  THROUGH  USART  */ 

IB  2  DECLARE  ITEM  BYTE, 

11  2  END  COUT; 

12  1  OECLARE  U5ARTIC0NTR0L  LITERALLY  '8EDH',  /•  ADORESS  OF  USART  CONTROL  P.  3-32  •/ 

USARTIRESET  LITERALLY  '40H';  /*  RETURNS  8251  TO  MODE  INST  FORMAT 

REF.  PAGE  3-43  */ 

13  1  STARTIUP  PROCEDURE  EXTERNAL;  /*  SET  I/O  FOR  RIFLE  ETC  */ 

14  2  EM); 

15  1  TARGETSAVAILABLE:  PROCEDURE  BYTE  EXTERNAL;  /*  OCCKS  FOR  AN  IR  SPOT 

IT  Mill  RETURN  1  IF  IR  SPOT  IS  FOUND.  •/ 

16  2  EM); 

17  1  TINERISTART  PROCEDURE  EXTERNAL;  /*  START  8253  REGISTERS  */ 

18  2  END; 

19  1  CLOCXIREAD:  PROCEDURE  ADORES?  EXTERNAL;  /•  READS  CLOCK  FOR  TARGET  *  SHOTS  */ 

28  2  END; 

21  1  RIFLEISHOT :  PROCEDURE  BYTE  EXTERNAL;  /*  WAITS  FOR  ANY  PIFLE  SHOT  */ 

22  2  END; 

23  1  GETIRIFLEIOATA  PROCEDURE  EXTERNAL;  /*  READ  *  RECORD  INPUT  BYTE  •/ 

24  2  EM); 

25  1  SETIOATA:  PROCEDURE  (POINTER,  LENGTH.  VALUE)  EXTEFNAL; 

26  2  DECLARE  POINTER  ADDRESS,  (LENGTH,  VALUE'  BYTE; 

27  2  EM)  SETIOATA 


PL/D-88 


28  1 
29  2 

38  1 

31  1 

32  2 

33  1 

34  1 

35  1 

36  1 

3?  1 

38  2 

39  1 

48  2 

41  1 

42  2 

43  2 

44  2 

45  2 

46  2 

47  2 

48  2 

49  1 

58  1 

51  1 

52  1 

53  1 

54  1 


55  1 

56  2 

57  2 

58  2 

59  1 
66  2 


61  2 
62  2 


WP1LER 


PRESENTMESULTS  PROCEDURE  EXTERNAL  /*  OUTPUTS  DATA  TO  CONSOLE  ♦' 
EM. 

DECLARE  TSTCHECK  BVTE  EXTERNAL; 


TEST  .  PROCEDURE  EXTERNAL 
END  TEST; 

DECLARE  FOREVER  LITERALLY  'WHILE  l'i 
DECLARE  COUNTERtSET  LITERALLY  '8EA6FH'; 

DECLARE  (TRAINING.  JK)  BYTE. 

OECLARE  TRAIN  BYTE  PUBLIC  AT  (.  TRAINING); 

MHOIFBILEWTWSHOOT :  PROCEDURE  EXTERNAL  /*  IDENTIFIES  WHICH  RIFLE  HISSED 

A  TARGET  SHOT  OPPORTUNITY  •/ 
END; 

GREETING:  PROCEDURE  EXTERNAL;  /*  PRINTS  GREETING  TO  CONSOLE  «/ 

END; 


TURKEYITEST:  PROCEDURE;  /*  CHECKS  FOR  A  1  SECOND  TINE  ELAPSE  SINCE  TARGET  DO W  •/ 
IF  TARGETOQMtfTlHE  >  CL0CK4RERD  THEN 
DELTAITIHE  *  TARGETIOOMNITIHE  -  dOCKMEAD; 

ELSE 

OCLTAtTIIC  *  1  4  COUNTERtSET  4  TARGET JOCNNITIHE  -  CLOCKMEAD; 

IF  DELTAITIHE  >  2BB  THEN 
TURKEY  *  li 
ELSE  TURKEY  =  6; 

END  TURKEYITEST; 

DECLARE  DELTAITIHE  ADDRESS  EXTERNAL 
DEdARE  FIRSTISHOTO)  BYTE  EXTERNAL 
DECLARE  TARGETMOMNITIHE  ADDRESS  PUBLIC; 

DECLARE  (TARGETlEXPECTEDi  TFLAG.  REALMONE)  BVTE  PUBLIC; 

DECLARE  TURKEY  BYTE  PUBLIC; 

DECLARE  TARGETITIHE  ADDRESS  PUBLIC; 

/•  END  OF  DECLARATIONS  */ 

/*.*,******«*»♦*«,**  PROGRAH  STARTS  *••  ww>i»»m  ><><»</ 


TESTtBOAROICHECK  DO 

IF  TSTOCCK  THEN  /*  IF  RON  EXTEIKR  BOARD  IS  NOT  PRESENT,  DC  88/28  TlfCS 
OUT  AND  Mid  READ  81  INTO  THE  ACdWJLATOR  «/ 

CALL  TEST;  /•PERFORM  98/20  BOARD  CfcCK*/ 

EM)  TESTtBOAROICHECK; 

UIHTMROGRAH:  DO  FOREVER. 

INITIALIZE: 

CALL  TIHERISTART; 


CALL  STARTUP; 
CALL  GREETING; 


»>3  2 


CALL  TWOY;  /•  INSURES  "GREETING*  HAS  BEEN  CQVUTED  */ 
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t 
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64  2  OU  VOTES;  7*  SWITCH  TO  VOTRfiX  LINE  «  CHANGE  TO  S6W  BAUD  */ 

#> 

A*  65  2  TRRGETIOONNtTlAE  =  CLOCKtREAD  ♦  200;  /*  FOR  TURKEY  TEST  */ 


.  -  66  2  SESSION 

|  DO  MULE  TRAINING;  /*  ME  MILL  E »  MITH  RN  'ESCAPE'  FROM  CONSOLE  */ 

67  3  IF  TARGETIAVA1LABLE  OR  RIFLEtSHOT  TON 

68  3  ACTION:  DO;  /•  EITOR  A  RIRE  SHOT  OR  A  TARGET  AVAILABLE  •/ 

I  69  4  IF  TARGET4AVAILABLE  THEN 

'  •  78  4  QOTtONE  DO; 

71  5  IF  NOT  TRAG  THEN 

72  5  (©NONE:  DO;  /*  A  MEN  TARGET  HAS  APPEARED  •/ 

'  73  6  TARGETtTINE  *  CLOCKtREAD; 

74  6  REAltOONE  =  0; 

75  6  TFUKM; 

f  76  6  TURKEY  «  0; 

77  6  END  tBNONL 

78  5  IF  RIFLEtSHOT  THEN 

79  5  GOOOtOATA:  CALL  GETtRIFLEtDATft 

38  5  END  GOTttNE, 

ELSE  /*  ELSE  THERE  IS  NO  TARGET,  BUT  A  SHOT  NAS  FIRED  */ 

31  4  NOtTARGET:  DO; 

32  5  CALL  TURKEYfTEST, 

83  5  CALL  GETtRIFLEIDATA, 

84  5  EM>  NOtTARGET; 

85  4  EM)  ACTION; 

RSE  /•  ELSE  TORE  IS  *ITHER  A  TARGET  NOR  SHOT  •/ 

36  3  NOtflCTION:  DO, 

87  4  IF  TFLAG  THEN  /*  THAT  IS,  TORE  NAS  A  TARGET  ON  LAST  PASS  */ 

33  4  TONE:  DO; 

3?  5  TARGETlOONNtTTO  =  CLOCKtREAD; 

90  5  TFLAG  =  0; 

91  5  END  TQONE; 

92  4  IF  NOT  REALtQOtC  THEN 

93  4  MAITtONE:  DO; 

(  »  5  CALL  TURKEYtTEST;  /*  ME  MILL  HOLD  REALtGOIC*  FOR  ONE  SECOND  *t 

95  5  IF  TURKEY  TON  /*  HE  SCORE  'TARGET  IGNORED*  0N.V  IF  REALtG0*=l  */ 

96  5  RECORDtGONE:  DO; 

|  97  6  REALtOOfC  =  1; 

6  CALL  MHOIFAILEDtTOtSHOOT; 

99  6  CALL  SETtOATAC  FIRSTtSH0T,5,l);  /•  NEXT  SHOT  AT  A  TARGET  HILL  BE  TIICD  */ 

160  6  CALL  SHOHtUORST; 

*  101  6  EM)  RECORDtQONE; 

102  5  EM)  MAITtONE; 

103  4  EM>  NOtflCTION, 

i  104  3  END  SESSION; 
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•».  / 


f 


♦.  / 


109  1  END  miMUIUTMmUi 


MODULE  INFORHHTHM: 


COOE  RREB  SIZE  *  tiB3H 

2590 

✓ 

VARIABLE  AREA  SIZE  *  nm 

100 

MAXIMUM  STUCK  SIZE  =  0606H 

6D 

167  LIMES  HERD 

-  ' 

6  PROGRAM  ENROR(S) 

END  OF  PL/H-00  COMPILATION 

> 


'  > 


) 

•/ 


) 

) 
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ISIS- 1 1  Pl/N-88  V3  1  OOiriLATION  OF  NODULE  STARTUFNttOE 
OBJECT  NODULE  PLACED  IN  :Fl:  START  OBJ 

COMPILER  INVOKED  BY.  PLNBB  F1STAR7  PIN  1XREF  DEBUG  DNTE  <25  JUN  79) 


IN01NTVECTOR 


1  START WPWOOULE .  Da 

2  1  BITIOUNP:  PROCEDURE  EXTERNAL.  /•  IN  CONSOLEtNODULE  */ 

3  2  Ett  BITIOUNP; 


4  1  DECUKE  INTERRUPT?  LITERALLY  '13FCH', 

CALLfIT  LITERflLLV  '0C3H'; 

5  1  DECLARE  INTERRUPTtCfU  STRUCTURE  (JUMP  BVTL  KCREITO  ADDRESS)  AT  (INTERRUPT?) 

OATA  (CALLIIT,  .  INTEPRUPTIROUTHC); 

6  i  DECLARE  LIT  LITERALLY  'LITERACY', 

RE5ETI8212  LIT  '0F8H', 

ENABLEI93U  LIT  '10H', 

P0RT3  LIT  'BEEN'; 

PORTS  LIT  'GEAH', 

GROUP1  LIT  '0E7H',  /*  8255  CONTROL.  REF.  PAGE  3-€8  OF  80/28  MANUAL  V 

NORM  LIT  '92H\  /•  PORTS  1  I  2  INPUT,  3  OUTPUT  ALL  NODE  0  PAGE  4-13  —  */ 

0R0UP2  LIT  '0EBH',  /*  PAGE  3-€8  «/ 

N0RD2  LIT  '80M',  /*  PORTS  4,5  4  €  at  OUTPUTS  NODE  B  */ 

USART4CONIROL  LIT  '0EDH',  /•  PAGE  3-48  */ 

USARTIRESET  LIT  '40H',  /•  INTERNAL  RESET.  PAGE  3-43  */ 

HOKISET  LIT  '0CEH',  /*  SETS  2  STOP  BITS,  8  BITS,  1SX  PAGE  3-38,-41  4  4-48  */ 

/*  USE  4FH  FOR  1  STOP  BIT,  8  BIT  MORD  4  64X  */ 
COmWDWORD  LIT  '27H';  /*  SETS  TRANSNIT/RECEIVER  READY, 

DATA  TERMNa  READY,  REOUEST  TO  SEND.  */ 

/•  SEE  PAGE  3-43  AW  STEP  46  OF  IDS  MONITOR  SHADOW  PROM  •/ 

?  1  DECUKE  D£CINa<3)  BYTE  EXTERNAL; 

8  1  DECLARE  HIST0RY<5>  BYTE  PUBLIC,  /•  THIS  MILL 

IDENTIFY  NHICH  RIFLE  MRS  SHOT  AT  A  PARTICULAR  TARGET  */ 

9  1  DECLARE  SCQREC5)  STRUCTURE  (HISS  BVTL  HIT  BVTL  I  ON  BVTL  L0448KIGHT  BVTL 

RIGHT  BYTE,  HIGHLIGHT  BVTL  HIGH  BVTL  NIQNHEFT  BVTE 
LEFT  BVTE,  LQMLEFT  BYTE,  ERROR  BVTL  TURKEY  BYTE. 

TAROETIIGNORED  BYTE'  EXTERNAL 

10  1  DECUKE  (SHOTfFUKL  TURKEY.  FILE,  TFlfC,  REALWONE)  BYTE  EXTERNAL, 

FIRSTISHOT<5)  BVTE  EXTERNAL, 

SPEED<5)  STRUCTURE(SHOTS  BVTL  TUflSUN  ADDRESS  '  EXTERNAL. 

U  1  DECLARE  TRAIN  BVTE  EXTERNAL 

12  1  DECLARE  ADICN1  UTERaiV '0D0M',  /*  REF  PAGE  >108  */ 

ADICN2  LITOKLLY  '0D9H'; 

U  1  DECUKE  QCH1  L1TBKLLY  '7FH', 


DECLARE  CRIF  LIT  'WH.W, 

NAME  <S>  STRUCTURE  (LETTERS)  BYTE  '  PUaiC, 
DATE  (12)  BVTE  PUBLIC 


14  1 
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COflUER 


IMMIflER  (7)  BYTE  PUBLIC, 

PROMPT  LIT  '3EH', 

HEN  <16>  BYTE  DATA<15, 'T0DAV"S  0ATE?',CRLF>, 

UIWTfID  (21)  BYTE  DATA  <20,  'UINT/SNAT  VER  1 3',  CALF),  /*  CHANGED  6/25/79  */ 
/♦  TIMES  FOR  'FAST,  *SL0H*,  ETC  IN  ■FINAL.  PIN*  MERE  INCREASED  ♦/  . 
/»  AT  AL  MARSHALL'S  INSTRUCTIONS.  A  CHANGE  IS  ALSO  BEING  HADE  */ 

/*  IN  THE  ■SHONNORST*  PROCEDURE  IN  RIFLE  PLH  TO  HYOID  TIC  */ 

/*  PROBLEM  HERE  0M.Y  FOUR  RIFLES  ARE  SHOOTING  =>  RIFLE  05  IS  */ 

/*  TTC  HORST  BECAUSE  OF  ALL  TIE  TAROT  IONOREDS  «  THERE  IS  NO  ♦/ 

/*  RIFLE  15  •NORST-RIFir  LIGHT  ♦/ 


15  1 

16  2 


I  DENT  (19)  BYTE  DATA  <10,  'EXERCISE  NUMBER’',  CRLF), 

QUERY  <22)  BYTE  DATA  <21,  'HANT  ID?  YES  OR  NO  ',CRLf ), 
TRAINEES  <26>  BYTE  DATA  <25,  'ENTER  NAMES  OF  TRAINEES', CRLF), 
OMRTFLE  <10)  BYTE  DATA  <9,  ON  RIFLE  '), 

OCI.JXJK)  BYTE, 

IDfRAG  BYTE  PUBLIC; 


TTYfSET:  PROCEDURE  EXTERNAL 

EM)  TTYfSET,  /•  USED  ONLY  NHEN  USART  IS  IN  REST  CONDITION  */ 


17  1  CIN  PROCEDURE  BYTE  EXTERNAL; 

18  2  END  CIN; 


19  1 

28  2 
21  2 
22  1 
2I<  2 

24  2 

25  2 

26  1 

27  2 

28  2 

29  1 

30  2 

31  2 

32  2 

33  3 

34  3 

35  3 

36  2 


39  1 

40  2 

41  1 

42  2 

43  2 

44  2 


COUT:  PROCEDURE  <ITEH)  EXTERNAL; 

DECLARE  ITEM  BYTE; 

END  COUT; 

PORTtSET.  PROCEDURE  PUBLIC; 

OUTPUT(GROUP1)=«NORD1  /*SET  CONTROL  MORD  INTO  GROUP  1  I/O  PORTS  ♦/ 
OUTPUT <OROUP2)HtORD,'.';  /♦SET  CONTROL  HORD  INTO  GROUP  2  I/O  PORTS  ♦/ 
END  PORTtSET; 

PRINT:  PROCEDURE<PTR)  EXTERNAL, 

DECLARE  PTR  ADDRESS; 

END  PRINT; 

STfOATA:  PROCEDURECPOINTER, LENGTH, VALUE)  PUBLIC; 

DECLARE  <POINTER,  FINAL)  ADDRESS, 

(LENGTH,  VALUE,  ST  BASED  POINTER)  BYTE; 

FINAL  *  POINTER  4  LENGTH  -  1; 

LOOP:  DO  NHILE  POINTER  <«  FINAL 
SET  «  VALUE; 

POINTER  *  POINTERS; 

EM)  LOOP; 

END  SETIOATA; 

1NTERRUPTIROUT1NE:  PROCEDURE  INTERRUPT  7  EXTERNAL; 

EM)  IHTERRUPTIROUTINE; 

UPIfSTROBE:  PROCEDURE  EXTERNAL, 

END  UPIfSTROBE, 

SIAULATEIRIFLES :  PROCEDURE; 

OUTPUT <P0RT€)a68H;  /♦  TELL  IJPI-41  TO  SIMULATE  RIFLE  DATA  ♦/ 

CALL  UPIfSTROBE; 

EM)  SINULATEIRIFLES; 
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45  1 


44  1 

47  2 

46  2 

49  2 

50  2 

51  2 

52  2 

53  2 

54  2 

55  2 

56  2 


57  2 

58  2 

59  2 

66  2 
61  2 

62  2 

63  3 

64  3 

65  3 

66  3 


67  2 

68  2 

69  2 

70  2 

71  2 


72  2 

73  2 

74  2 


75  2 

76  2 

77  2 

78  2 

79  2 
88  2 
81  2 


KOBE  C1RLT  LIT  '14H\  MMTWE  BYTE; 

. . . in  END  OF  DECLARATIONS . tm . . 

STARTUP:  PROCEDURE  PUBLIC, 

OIL  SETIOADk  SCORE,  65,  B); 

Cm  SET4DATA<  HISTORY,  5,  B>; 

Cm  SETIDADK  F1RST0SHOT.5, 1); 

Cm  SETfflfflK.  SPEED,  15, 0), 

Cm  SETfOATTK  DECIMAL.  3,0); 

TURKEY  >  0. 

TRAIN  «li 
TFLRB  >0; 

SHOTIFLRG  «  0. 

FILE  *  4;  /•  MHMSHOT  FIRST  INCREICNTS  FILL  NODS  (DIVIDES)  BY  5, 

I.  E.  5/5=1  WITH  RENRINDER  *  0.  NON,  RIFLE=f  ILE+i, 

SO  HE  STRRT  WITH  RIFLE  01  !!•  •/ 

REfUQIIE  «  L  /♦  TARGET  HAS  NOT  BEEN  AVAILABLE  FOR  OYER  1  SEC.  •/ 
Cm  PORTfSET; 

0UTPUT(P0RT3)  «  NOT  RESETt*212,  /*  Hill  CLEAR  ALL  8212  DATA 

LATCHES  FOLLOWING  STROBE  4/ 

0UTPUT(P0RT6)  >  ENABLE49311,  /•  THE  LEADING  EDGE  OF  DC  STROBE  */ 

0UTPUT<P0RT6>  -  8,  /•  DC  TRAILING  EDGE  «/ 

DO  JK  «  9  TO  13;  /*  CLEARS  DC  JK  FF  DATA  LATCHES  */ 

OUTPUT  (P0RT3)  *  NOT  *  AM)  0FM 
0UTPUT(P0RT6)  =  ENABLE493U; 

0UTPUT(P0RT6)  »  0; 

END; 


DISABLE; 

Cm  TTYfSET; 

SETINT:  0UTPUT<  ADICW1)*(L0M( INTERRUPT?)  AND  KBH)  ♦  1FH 
OUTPUT  (ADICH2)*HIGH(  INTERRUPT?); 

OUTPUT (AOICM2)*OCHl;  /•  MASK  m  BUT  INTERRUPT  7  •/ 

/*  ME  NON  OBTAIN  IDENTIFICATION  DATA  FOR  DC  SESSION  IF  ICEDED  •/ 

Cm  COUT(WM);  /•  CK  */ 

(DU  COUT(BAH);  /•  LF  •/ 

Cm  COUT(BAH); 

Cm  PRINK  UIHT4ID); 

CALL  COUT(BAN); 
cm  PRINK  QUERY); 

Cm  OUTPUT  (PROCT); 

X-CINf 

RWNTVTE  «  X;  /•  SAVE  INPUT  FOR  IDENTIFICATION  OF  CONTROL  T  •/ 
Cm  COUKX); 


25TW7?nWE  4 


t  c»«ta 


82 

2 

CALL  COUKMN); 

83 

2 

CALL  C0UK8AH);  /•  CR.LF  *7 

84 

2 

I04FUO*  /*  CONTROL  FOR  iO  PRINT-OUT  AT  0©  OF  SESSION  */ 

85 

2 

IF  X  «  'V'  TICN 

86 

2 

OETflO:  00, 

87 

3 

IWFU4M- 

88 

3 

CLMOATE  CALL  SETIWTA!.  DRTL 12, 80H);  7*  CHARS  ■DATE"  *7 

89 

3 

CALL  PRINT(.  tf€N); 

98 

3 

CALL  CQUKPROHPT); 

91 

3 

DATE<8)*11; 

92 

3 

GETWATE: 

DO  1*1  TO  9; 

93 

4 

X-CIN, 

94 

4 

IF  X40H  THEN  1*9; 

96 

4 

CALL  COUT(X); 

97 

4 

DATE(I)  *  X; 

96 

4 

EM)  QET40AT& 

99 

3 

CALL  COUT(0OH); 

188 

3 

DATE(ll)  •  RAN;  7*  LF  *7 

181 

3 

CALL  COUT(RAH); 

182 

3 

CALL  SET*OATA<  IDtNMER.  7. 80H);  7*  FILLS  *  ID  MMER*  WITH  CR  *7 

183 

3 

CALL  PRINK.  I DENT); 

184 

3 

CALL  COUT(PRONPT); 

185 

3 

CALL  BIT4DUHP;  7*  CLEAN  OUT  USART  INPUT  BUFFER  V 

186 

3 

ID8NUABER<8)*6; 

187 

3 

GETIIDfNUHBER:  DO  1*1  TO  4;  7*  A  4  PLACE  MD*  *7 

186 

4 

X=CIN; 

189 

4 

IF  X*60H  THEN  1*4; 

111 

4 

CALL  COUT(X); 

112 

4 

ID4NtMER(I)*X; 

113 

4 

END  GET8I04NUMBER; 

114 

3 

CALL  COUT(BDH); 

115 

? 

I04NU«R<6)*8AN; 

116 

3 

CALL  C0UK8AH); 

117 

3 

CALL  SETIDATAC.  NAAL  45,8DH); 

7*  FILLS  NIC  IMTRIX  WITH  CR  *7 

118 

3 

CALL  PRINK.  TRAINEES); 

119 

3 

OETMAAES: 

DO  M  TO  4; 

7*  FOR  FI*  TRAINEES  *7 

128 

4 

CALL  PRINT!  OMRIFLE), 

121 

4 

CALL  C0UK3UH1); 

i, 
{. 
i . 

I , 
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122 

4 

CALL  COOT(GtM); 

123 

4 

CALL  COOT<8AH>; 

124 

4 

CALL  COUT(PRCMPT); 

125 

4 

CAUL  8IT40UP; 

126 

4 

N8C<I).LETTER(8>*6; 

127 

4 

ONEMVE: 

DO  M  TO  &  /* 

128 

5 

Mil 8 

129 

3 

IF  MON  THEN  «; 

131 

5 

NANE(I).  LETTER(  J>=X; 

132 

5 

CALL  COUT<X); 

133 

5 

E»ONE UK 

134 

4 

CALL  COUT<«N>J 

135 

4 

NAK<I).  LETTERS)  >  BAN; 

136 

4 

CALL  COOT  <8AH); 

137 

4 

END  GETMAMS 

138 

3 

END  GETfID; 

139 

2 

IF  RUOTVPE  *  CTRLT  TTEN 

148 

2 

CALL  SIMULATEIRIFLE5; 

141 

2 

EN>  STARTUP; 

142 

1 

END  STARTAPAMODOL 

/*  GETS  IMS  IP  TO  6  LETTERS  LONG  */ 


/•  Ot  */ 
/*  Lf  *t 


NOWJLE  HPORNAfflON: 

CODE  AREA  SIZE  >  833FH 
VARIABLE  ARBI  SIZE  «  8832H 
MAXIMUM  STACK  SIZE 
248  LIMES  READ 
8  PROGRAM  ERAOR(S) 

E»  OF  PL/N-88  COMPILATION 
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40 
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1SIS-I1  PL/H-80  VI 1  CONPIUttlQN  of  nodule  thondoule 
OBJECT  MMLE  PUKED  IN  FITIIOLOBJ 

COMPILER  INVOKED  BV  PIN8I  FltTIlER  PU1  DEBUG  IXREF  DATE  <23  OCT  78) 


1  TirOWOOE  DO; 

/•  THIS  NODULE  SETS  THE  8253  NODES  M>  READS  REGISTERS.  NOTE  THAT  ALL 
THREE  8253  GATES  MUST  BE  HIGH!  ALL  PAGE  REFERENCES  ARE  TO  THE  88/20 
REFERENCE  NANUAL  90-317C  «/ 

2  1  DEOARE  LIT  UTERALLV  'LITERALLV', 

COUNTER0  LIT  '8DCH',  COUNTERi  LIT  '8D0H', 

COUNTER2  LIT  '80EH',  CONTROL  LIT  'IDFH';  /•  SEE  PAGE  2-7  •/ 

3  1  DECLARE  CNTR8N0DE  LIT  '34H',  /*  2  BVTES#  NODE  2  PAGE  3-70  */ 

CNTRMIDE  LIT  '74H',  /*  2  BVTES#  NODE  2  «/ 

CNTR2H0DC  LIT  'IB6H';  /*  2  BVTES,  NODE  3  */ 

/•THE  FOLLOWING  2-BYTE  HOADS  ARE  T)€  ‘BAUD  RATE  FACTORS*  TABLE  4-34  P  4-48  */ 

4  1  DECLARE  LOMB  LIT  '0'.  /•  COUNTER  0  PERIOD  IS  5  HILLESECONDS  •/ 

HIGHB  LIT  'OH', 

LOML  LIT  '5FH'.  /*  COUNTER  1  PERIOD  IS  5  NINUTES  •/ 

HIGM  LIT  '8EAH'.  /*  >  5  BIN  •  60  (SEC/NIN)  /  8  885  SEC  -1  IN  HEX  •/ 

. . .  UP  NR  308  BAUD  . . . 

LON?  LIT  '8E8H',  /•  COUNTER  2  FREOUEXV  IS  4  8  KHZ  •/ 

HIGH2  LIT  '80'.  /*  SEE  PAGE  3-38.  Aft  NOTE  THAT  THE  8251  IS  SET  FOR  16X  */ 

LOWVOTRAX  LIT  '07H', 

HIGHfVOTRAX  LIT  'BOM';  /•  SETS  WTRAK  OUTPUT  TO  9680  BAUD  •/ 

5  1  DECLARE  TINE4LATCH  LIT  '48H',  /•  A  COUNTER  1  LATCH  PAGE  3-84  •/ 

(LSITIHEIBYTL  HS8TIIWBVTE)  BVTE  PUBLIC; 

6  1  DECLARE  TIME  ADDRESS  PUBLIC; 

7  1  DECLARE  LOMTIHEtBVTE  BVTE  AT  <.  TINE).  HIGWTIHEIBVTE  BVTE  AT  (  TINE  ♦  1), 

8  1  TIHERISTART:  PROCEDURE  PUBLIC; 

9  2  OUTPUT  <  CONTROL  )=CNTR8N0C€;  /•  SET  COUNTERS  8  t  l  NODES  •/ 

18  2  OUTPUT (CONTROL  )3CNTR1HCT€; 

11  2  OUTPUT <COUNTER8)=LOM0,  /•  INITIALIZE  COUNTERS  •/ 

12  2  OUTPUT  <  COUNTER®  )*HIGH0. 

13  2  OUTPUT<COUNTERl)=tOHL 

14  2  OUTFUT<COUNTER1»MION1; 

15  2  DC  TINERISTART; 

16  1  TTYITHO  PROCEDURE  PUBLIC; 

17  2  OVTPUT<CCNTROL)aCNTR2HODC< 

16  2  OUTPUT  (C0UNTER2X0N2;  /*  HOADS  FOA  388  BAUD  •/ 

19  2  OUTPUT  <C0UNTER2)*M1GH2> 

28  2  DID  TTVtTIMERi 

21  1  VOTRAKfTllfR  PROCEDURE  PUBLIC;  /•  SET  VOTRAK  TO  9688  BAUD  •/ 

22  2  OUTPUT (CONTROL  XNTR2N0DE; 

23  2  OUTPUT  <  COUNTER2XOM4VOTRADC 

24  2  0UTPUT<C0UNTER2)>HtGHIV0TRAK; 

25  2  DC  VOTRAKfTHfR, 


23  OCT  »  PAGE 


C-24 


/*-»  COMPILER 


f 

i 


X  1  CLOCKSRERD:  PROCEDURE  KNESS  PUBLIC;  /*  GETS  t>C  CONTENTS  OF  COUNTER  1  */ 
Z?  2  OUTPUT<CONTWL)-TlHENJTCK 

28  2  LON»TIIC*WTE«IWVT(COUNTERl)i 

29  2  H1GMIT1ICIBVTE*WUT(C0UNTER1); 

18  2  RETURN  TIME; 

31  2  E»  aOCXMERD; 

32  1  END  MCRMODULE; 


»  oct  %  m  i 


NODULE  INFORMATION; 


CODE  AREA  SIZE  >  8M9N 

(90 

VRRIRBLE  MEN  SIZE  •  088ft 

40 

1 

MAK1IMI  STUCK  SI2E  «  N8M 

m 

> 

59  LltCS  RERD 

8  PR06RM  ERROR(S) 

EW  OF  Ptyn-88  COMPILATION 
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PL/H-BB  COAPILER 


25  JUN  79  PAflE 


ISIS-11  PL/H-88  VI 1  COMMUNION  OF  NODULE  RIFLEDATANODULE 
OBJECT  NODULE  PLACED  IN  :F1:RIFLE.  OBJ 

COMPILER  INVOKED  BV:  PLABB  :  FI:  RIFLE.  PIN  IXREF  DEBUG  DATE  (25  I'JN  79) 


1  RIFLEIDATAIHODULE :  DO» 

/*  INCLUDES  VARIOUS  PROCEDURES  FOR  RIFLE  DATA  I/D  */ 

2  1  DECLARE  tfSSAOE  BYTE, 

3  1  COUT:  PROCEDURE  (ITEM)  EXTERNAL; 

4  2  DECLARE  ITEM  BYTE, 

5  2  EMXXMTi 


6  1  SCORIT:  PROCEDURE(SMOT*LOCflT ION, FILE); 

7  2  DECLARE  < SHOT ILOCAT ION.  FILE)  BYTE, 

8  2  ADDER(FILE)  J(SHOTfLOCAT10N)"AOOER(FIL£).  J'SHOTHOCATIONM, 

9  2  EM)  SCORIT; 

/•  DECODE  TRANSLATES  QUADRANT  DATA  INTO  SNOT  POSITION  NOTE  THAT 

ERRORS  ARE  TREATED  A  HISSES  THIS  A  ‘HIGH-LOW  OR  A  ‘LEFT -RIGHT* 
WHICH  SHOULD  NEVER  OCCUR  IS  A  HISS  TO  SCORE  AS  ERRORS  CHANGE  TIC 
SECOW  AND  THIRD  B  OF  DECODE  INTO  *11*  •/ 

18  1  DECLARE  DEC0DE(16)  BYTE  DATA<8, 2.4,3, 6, 8,5.4, 8.9, 0  2, 7, 8.8,1); 

11  1  CL0QC9READ:  PROCEDURE  ADDRESS  EXTHNAL 

12  2  EM)  CLOCKIREAD; 

13  1  SET4DATA:  PROCEDURE(PTR, LENGTH  VALUE)  EXTERNAL; 

14  2  DECLARE  (LENGTH,  VALUE  )BYTE,  PTR  ADDRESS; 

15  2  EM)  SETIDATA; 

16  1  DECLARE  FIRST«SN0T(5)  BYTE  PUBLIC; 

17  1  DECLARE  LIT  LITERALLY  'LITERALLY', 

HIGHM)  LIT  'MEN',  10MMD  LIT  '1',  R1GHT4M)  LIT  '2'.  LEFTMD  LIT  '3', 
HITMD  LIT  '4',  HISS*®  LIT  '5',  NOtND  UT  '6',  TARGET*®  LIT  '7', 
SOLDIER*®  LIT  '8',  VOUM)  LIT  '9',  AN®  LIT  'BAH  . 

HAS*®  LIT  'OEM',  MARINE*®  LIT  'ICH',  ENEMY*®  LIT  '8DH', 

AVAILABLE*®  LIT  '32',  FROZE*®  LIT  '8FN'» 

P0RT1  LIT  'IE4H',  /*  PAGE  3-68  OF  88/2B  MANUAL  • 

P0RT2  LIT  'BE3H', 

P0RT3  LIT  '0E6H'» 

P0RT4  LIT  '8E8H', 

PORTS  LIT  'KAN', 

ENABLE1  LIT  '1IN'; 

18  1  DECLARE  C0UNTER8SET  LIT  'BEA5FH';  /•  INITIAL  VALUE  5  MIN  COUNTER  •/ 

19  1  DECLARE  HISTQRV(S)  BYTE  EXTERNAL 

28  1  DECLARE  (TURKEY,  TFLAG)  BYTE  EXTERNAL; 

21  1  DECLARE  SC0RE(5)  STRUCTURE(N1SS  BYTL  HIT  BYTE,  LON  BYTE,  LOMRIGHT  BYTE, 

RIGHT  BYTL  HIOMRIQHT  BYTE,  HIGH  BYTE,  HIGH*  EFT  BYTE, 

LEFT  BYTL  LOMLEFT  BYTL  ERROR  BYTE,  TURKEY  BYTE, 

TARGETItONORED  BYTE)  PUBLIC; 

/*  ME  HILL  USE  *ADDER*  TO  CONFUTE  TOTAL  SNOTS  •/ 

DECLARE  ADDCR(5>  STRUCTURE  (  J(13)  BYTE)  PUBLIC  AT  (  SCORE); 

C-26 
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23  1  DECLARE  SPEED<5>  STRUCTURE<SHOT5  BYTE  TIMEISUM  ADDPESS)  PUBLIC; 

24  1  DECLARE  TOTALITIHE  ADDRESS; 

25  1  DECLARE  DELIWTIfC  ADDRESS  PUBLIC; 

26  1  DECLARE  (FILE.  RIFLE,  FPTR)  BYTE  PUBLIC; 

27  1  DECLARE  SHOTfFLAB  BYTE  PUBLIC; 

28  1  DECLARE  TAROETITIME  ADDRESS  EXTERNAL 

29  1  DECLARE  R1FIEIID  BYTE; 

31  1  DECLARE  CRTISTROK  LIT  '0001NM'; 

31  1  UPIfSTROBE:  PROCEDURE  PUBLIC; 

32  2  0UTPUT<PCRT3>  =  CRT9STR0BE; 

33  2  0UTPUT(P0RT3)  *  0; 

34  2  EM>  UPI9STMK; 

35  1  TAROETIAYAILABLE .  PROCEDURE  BYTE  PUBLIC;  7*  GIVES  'TRUE'  IP  TARGET  PRESENT  *7 

3E  2  DECLARE  TARGET  BYTE; 

37  2  TRRQET=IWUT<P0RT2>; 

38  2  RETURN  TARGET;  7*  PORT  2  BIT  NUMBER  0  HILL  BE  HIGH  IP  TARGET  PRESENT  *7 

39  2  END  TAROETIAYAILABLE; 

4«  1  RIFLEISHOT :  PROCEDURE  BYTE  PUBLIC;  /•  RETURNS  •TRIE*  IP  SHOT  FIRE?*  *7 

41  2  SHOTIFLAMWUT (PORT1);  /*  'SNOTIFIAG'  IS  TRUE  WHEN  SHOT  FIRED1  *7 

42  2  RETURN  SHOTIFIAG; 

43  2  EM>  RIFLEISHOT; 

44  1  GETIRIFLEIOATA:  PROCEDURE  PUBLIC. 

45  2  DECLARE  SHOTICATA  BYTE, 

48  2  UWESOLVED:  00  WILE  SHOTIFLAS  «INPUT(PORTi), 

47  3  SHOTIOATA*;  /•  (CEDED  TO  ENTER  FOLLDNING  'WOISHOT-  ROUTINE  *7 

48  3  WOISHOT  DO  WILE  NOT  SHOTICATA, 

49  4  FILE  *  (FILEn)  HOO  5;  /*  PILE  I  CONTAINS  RIFLE  NLVBER  1  DATA. 

FILE  l  «=>  RIFLE  02,  ETC  *7 

58  4  RIFlf=fIl£*l;  /•‘FILE*  IS  INTIALI2ED  ONLY  ONCE  THUS 

HE  START  CHECKING  WERE  HE  LEFT  OFF  */ 

51  4  SHOTIDRT8»9*(SH0TIFLAG,  RIFLE); 

52  4  0€>  WOISHOT;  7*  ■RIFLE*  EQUALS  SHOOTING  RIFLE  IMCER  *7 

53  3  RIFLEIID  *  RMKRIFLE,  3);  /•  GET  RIFLE  ID  INTO  HIGH  ORDER  BITS  *7 

M3  IF  NOT  TURKEY  MN 

55  3  DO; 

50  4  IF  FIRSTISMOT(FILE)  THEN 

57  4  HOMUICK  DOS 

»  5  IF  TAROniTI*  >«  CLOCXIREflD  T*N 

59  5  DELTAITIIC  -  TARGETITINE  •  CLOCKMEAD, 

ELSE 

08  5  DELTAIT1HE  *  COUNTERISET  ♦  1  ♦  TARGETITHC  -  CLOCK  IRE HD. 

01  5  SPEEDCFILE).  TINEISUWSPEED(FILE).  TIICISUN  ♦  OELTf#TIHE 

02  5  SPEED(FILE)  SHOTS  *  SPTED<F1LE>  SHOTS  ♦  1; 

63  5  FIRSTISMOT(FILE)  «  0; 

04  5  E*  HOMWUICK, 

05  4  END; 

00  3  HISTORV(FILE)  «  1 ; 

07  3  OUTPUT <P0RT3)-N0T  RIFLE  HND  AFH;  7*  SETS  9311  ROOK  S  OF  TDSi  LHC  I  RIFLE  *7 

68  3  0UIPUT(P0RT6>  *  ENABLE1,  7*  LATCHES  SHOTICATA  FROM  RIFLE  ONTO  BUS  *7 


.7 
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69  3  SH0T»ATf*INPUT(P0RT2).  /•  READS  QUADRANT  OMTR  •/ 

79  3  0UTPUT(P0RT6)  *  ft  /*  RETURNS  /DS1  •  RIFLE  HIGH  AM)  DROPS  8212  FROM  BUS  •/  • 

71  3  0UTPUT<P0RT3)M«m6H  OR  RIFLE)  AW  RFHi  /*  ADDRESSES  9311  /GOT  DATA  »  RIFLE  •/ 

72  3  OUTPUT  (P0RT6)  «  ENABLED 

73  3  0UTPlfT<P0RT6)  *  ft 

74  3  CALL  COUT(RFFN);  /•  OUTPUT  "SVN'  ICSSAGE  TO  WTRAX  •/ 

75  3  CALL  COUT<0OH  ♦  FILE);  /*  RIFLE  ADDRESSED  */ 

76  3  IF  (NOT  TURKEY)  AM)  TFLAG  THEN 

77  3  OKIDATA:  DO,  /*  ADD  IN  ICM  SCORE  DATA  ASSUC  FOR  PORT  2  THAT 

BIT  1  *  LOft  BIT  2  s  RIGHT 
BIT  3  *  HIGA  BIT  4  ■  LEFT  •/ 


78 

4 

CALL  SCORIT(HESSAGE:3OECOOE(Stt(SHOTtOHTAl)  AND  0FH),FILE); 

79 

4 

CUTPUT(PORT6)  *  NOKRIFLEI1D  ♦  ICSSAGE)  AND  111811116, 

88 

4 

CALL  UPIfSTROBE; 

81 

4 

VOTRAXflCSSAGES:  DO  CASE  ICSSAGE; 

82 

5 

CALL  COUT(HISSIND); 

’  ) 

83 

5 

CALL  GOUT (MIT*©); 

84 

5 

CALL  COUTCLON*©); 

85 

5 

00; 

. 

86 

6 

CALL  COUT(LOMM»; 

87 

6 

CALL  COUT  (RIGHT*©), 

88 

6 

END; 

89 

5 

CALL  COUT< RIGHT*©), 

9 

98 

5 

DO; 

91 

6 

CALL  COUT(HIOKM»; 

92 

6 

CALL  COUT(RIGHT*©); 

t 

93 

6 

EM); 

94 

5 

CALL  COUT(HIGH*©>, 

95 

5 

DO, 

! 

% 

6 

CALL  COUT(HIGH*©); 

97 

6 

CALL  COUT<L£FT*©); 

98 

6 

EM); 

\ 

99 

5 

CALL  COUKLEFT*©); 

! 

108 

5 

DO; 

191 

6 

CAUL  COUT(LON*©>; 

18? 

6 

CALL  COUT<LEFT*©>; 

} 

193 

6 

EM); 

It*  5  END  VCTRADWCSSAGES; 

185  4  END  OKIDATA; 

186  3  IF  TIIMCV  THEN 

187  3  DO; 

186  4  TURKEYIDATA;  SCORE(FIL£)  TURtEY  «  SCORE(FILE)  TURKEY^. 

189  4  OUTPUT  (PCRT6)  >  NOT(RIFLEIK  ♦  OH)  AND  UlUlllft 

119  4  CALL  UPIISTROK;  7*  SENDS  TURKEY  TO  CONSOLE  CRT  *7 

111  4  CALL  COUT<NO*©>; 

112  4  CALL  COUT (TARGET*©);  _  oa 


4 


T  114  3 
<)►  115  3 

116  4 

-  -  117  4 


118  4 

119  4 


128  4 


I 

X  ^  121  3 


122  3 

1  l23  2 

124  1 

i  125  2 

'  126  3 

127  3 

128  3 

129  4 

138  4 

131  4 

132  4 

133  4 

134  4 

135  4 

1 36  4 

137  4 

138  3 

139  2 

148  2 


IF  <NOT  TFLAG)  AND  (NOT  TURKEY)  THEN 
DO; 

SCORE(FILE)  HISS  =  SCORE(FILE)  HISS  ♦  L 
0UTPUT(P0RT6)  *  NOTCRIFIEIID  ♦  8AH)  AM)  1U8UUB; 

CALL  UPItSTRCBL  /»  SEWS  ‘HISS,  LATE*  MESSAGE  TO  CONSOLE  CRT  •/ 
CALL  COUT(HISSMD>; 

EM). 

CALL  C0UT(8FFH>;  /*  VOTRAX  SIGN-OFF  •/ 

EM)  IMESOLVED; 

EM)  GETlRIFLEfDATA; 

WOfFAILEDITOtSHOOT  PROCEDURE  PUBLIC. 

DO  FPTR=8  TO  4; 

RIFLEfID  =  ROR(FPTR*L3); 

IF  HISTORY(FPTR)*«  TWN 
DO. 

SCORE(FPTR)  TAROETI IGN0RED=SC0R£<FPTR).  TARQETHGNORED+l; 

OUTPUT (PORTS)  =  NOKRIFLEIID  ♦  8CH)  AM)  lUttlilBi 

CHI  UPIISTROBL  /•  SEWS  TARGET  IGNORED  TO  CONSOL  CRT  *2 

CALL  C0UT<8FFH);  /•  VOTRAX  MNT'  MESSAGE  V 

cm  C0UT<8C8N  ♦  FPTR).  /»  ADDRESS  RIFLE  NOT  SHOOTING  •/ 

cm  COUT<YOUM»; 

cm  COUT(FROZEWD); 

cm  COUT  (8FFN),  /*  END  OF  VOTRAK  MESSAGE  V 

EM); 

END, 

Cm  SETIOATfK  HISTORY, 5, 8). 

EM)  WOtFAILEDSTOfSHOOT; 


141  1 

142  2 

14?  2 

144  2 

145  3 

14*  3 

147  3 


148 

149 
158 

151 

152 

153 

154 

155 

156 

157 

158 

159 
Inf 
161 


3 

2 

2 

2 

J 

3 

3 

J 

4 
4 
4 

3 

2 

2 


SHOMWORST  PROCEDURE  PUBLIC; 

DECLARE  BADMORD  BYTE, 

DECLARE  6A04MEMS(5)  BYTE; 

HOMfBAD  DO  FPTR  *  8  TO  4; 

BADINEHS<FPTR>  «  8; 

IF  SPEEIMFPTR)  SH0TSO8  THEN  7*  AVOIDS  'WORST-SHOOTER'  IF  NO  RIFLE  AT  FPTR  •/ 
BADWEMS<FPTR)  «  SCORE(FPTR)  MISS  ♦  SCORE(PTR).  TURKEY  ♦ 

SCORE(FPTR)  TARGET! IGNORED; 

END  HOMBAD; 

BADMORD  *  1, 

RIFLE  *  1; 

HUNT  WORST  DO  FPTR  =  8  TO  3; 

IF  BAD*CNS<FPTR4l)  *  BADtNEHS(RIFLE-l)  T»€N 
BAMHORD  =  BADMORD  OR  ROL(80H>  (FPTR  4  2)); 

IF  8ADIMEHS<FPTR+i)  >  BAMNEHS(RIFl£-l>  TUN 
DO; 

RIFLE  -  FPTR  ♦  2, 

BADMORD  *  (BADMORD  ANT)  8)  OR  R0L<88H>  RIFLE); 

END; 

END  HINT  WORST;  •  RIFLE  HAS  VALUE  OF  HORST  SHOOTER  */ 

OUTPUT (PCRT4)  «  BADMORD; 

£M>  SHOMWORST; 


16?  1 


END  RIFLEIDATAIHODULE. 
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IffOULE  IITOWTIW: 

CODE  AAER  SIZE  «  I387M  9510 
VARIABLE  AREA  SIZE  »  O069H  1050 
maximum  stack  si2E «  mm  40 
222  LIMB  READ 


FlTtf-S  uSPILST 


ISIS-II  PL/N-90  V3  1  COMPILATION  OF  NODULE  CONSOLEMODUi 
OBJECT  NODULE  PLACED  IN  : FI: CONSOL  OBJ 

COMPILER  INVOKED  BV:  PLN00  :Fi:CONSOL  PLN  DEBUG  IttEF  DATE  (12  OCT  78) 


CONSOLE  INOOULE  DO;  ^ 

/•  THIS  NODULE  CONTAINS  CONSOLE  I/O  ROUTIICS  */ 

DECLARE  USARTIOATA  LITERALLY  '*CH',  /*  PAGE  3-48  OF  9B/2B  MANUAL  •/ 

USARTISTATUS  LITERALLY  '8EDH',  /*  PAGE  3-44  */ 

ESC  LITERALLY  'IBM'.  /•  ASCI!  "ESCAPE*  •/ 

NR5K  LITERALLY  '7FH', 

ZERO  LITERALLY  '38H', 

CR  LITERALLY  'BOH'.  LF  LITERALLY  'BAH', 

ENAGLEI9311  LITERALLY  'IBM', 

P0RT3  LITERALLY  'BE6H', 

P0RT6  LITERALLY  'BEAH', 

TTYILINE  LITERALLY  'B8H', 

VOTRAKILINE  LITERALLY  'B9H', 

USARTICONTROL  LITERALLY  'BEDH', 

/*********THE  SILENT  700  IS  WEAFTER  DEFINED  AS  A  TTY 
TTYINOOE  LITERALLY  '04EH',  /*  1  STOP  BITS,  8  BIT,  16X,  P.  3-38-41,4-48  */ 
VOTRAXWOOE  LITERALLY  '4EH',  /*  DITTO  EXCEPT  1  STOP  BIT  •/ 

USARTICOWW©  LITERALLY  '27H',  /•  DATA  TERMINAL  READY,  ETC  •/ 

USARTIRESET  LITERALLY  '4BH', 

HELLO  (18)  BYTE  OATA  (17,  CR, LF,  LF.LF,  'LET"S  START'-  CR,  LF); 

DECLARE  DECINALG)  BYTE  EXTERNAL, 

DECLARE  (I,V,  QOS)  BYTE, 

TTYIT1NER:  PROCEDURE  EXTERNAL; 

EM); 

VOTRHXIT1NER:  PROCEDURE  EXTERNAL; 

END; 


9  1 

10  2 
11  2 
12  2 

13  2 

14  2 

15  2 

16  2 

17  1 

18  2 
IS  2 
28  2 

21  1 
22  2 

23  2 

24  2 


TTYISET  PROCEDURE  PUBLIC; 

0UTPUT(P0RT3>  *  TTYILINE,  /*  HILL  DIRECT  USART  OUTPUT  TO  TTY  */ 
0UTPUT(P0RT6>  =  ENABLEI9311; 

OUTPUT  (PORT6)  =  0; 

CALL  TTYITINER;  /*  SETS  UP  FOR  110  BAUD  */ 

OUTPUT (USARTICONTROL )  -  TTYIMODE, 

OUTPUT(USARTICONTROL)  =  USARTICOHNPK); 

00  TTYISET; 

TTYRES:  PROCEDURE  PUBLIC;  /*  TTY  RESET  V 
OUTPUT(USARTICONTROL)  =  USARTIRESET; 

CALI  TTYISET; 

END  TTYRES; 

VOTRAXISET :  PROCEDURE  PUBLIC; 

OUTPUT (USARTICONTROL)  *  VOTRAX1HOOE; 

OUTPUT  (USARTICONTROL;  =  USARTtCOMW®; 

END  VOTRAXISET; 


l  *! 


■W  CQVTDER  ' 


25 

1 

VOTRES:  PROCEDURE  PUBLIC;  /*  VOTRAX  RESET  */ 

26 

2 

OUTPUT  (US8RTIC0NTRX)  »  USARTIRESET; 

27 

2 

0UTPUT(PWT3>  *  VOTRAWLItt, 

28 

2 

OUTPUT (P0RT6)  -  ENA8LEP9311; 

29 

2 

0UTPUT<PGRT6)  «  8 ; 

38 

2 

CRLL  VOTRAWTIAER; 

31 

2 

Cm  WTRftCtSET; 

32 

2 

0®  VOTRES; 

33 

1 

CIN:  PROCEDURE  BYTE  PUBLIC;  /*  GETS  8  BYTE  FROM  T)€  CONSOLE  •/ 

34 

2 

RXRDV  DO  MHILE  NOT  SHR(WUT<USARTfSTAlUS>  1);  /•  I.E.  MULE  INPUT  BUFFER 

IS  NOT  REPDY  •/ 

35 

3 

EN>  RttDY; 

36 

2 

RETURN  HR5K  AND  INPUT <U5ARTIDflTA>> 

37 

2 

END  CIN; 

38 

1 

TXRDY:  PROCEDURE  PUBLIC, 

39 

2 

DO  WILE  NOT  SHR(IW’UT<USART$STATUS>,2); 

48 

3 

END; 

41 

2 

END  TXRDY; 

42 

1 

COUT  PROCEDURE  <ITEH>  PUBLIC;  /•  OUTPUTS  ■ITEM*  */ 

43 

2 

DEaflRE  I  TEN  BYTE 

44 

2 

DO  NHILE  NOT(INPUT<USART$STATUS)); 

45 

3 

END; 

46 

2 

OUTPUT(USRRT*OATR)=ITEH; 

47 

2 

END  COUT; 

48 

1 

BITSOUHP:  PROCEDURE  PUBLIC; 

49 

2 

Y  *  IHfUT (USARTtDATA);  f*  V  HERE  IS  R  BIT-BUCKET  */ 

50 

2 

END  BITtOUAP; 

51 

1 

PRNTNUH:  PROCEDURE  PUBLIC; 

52 

2 

GOS=0; 

53 

2 

DO  I«8  TO  2i 

54 

? 

IF  <Y  =OECINAL(I»  O  ZERO  THEN 

55 

3 

G0S*L 

56 

3 

IF  G05  THEN  CflLL  COUTTY); 

58 

3 

END, 

59 

2 

Cm  COUT(CR); 

68 

2 

CflLL  COUT(LF); 

61 

2 

END  PRNTNUH; 

62 

1 

PRINT:  PROCEDURE(POINTER)  PUBLIC; 

63 

2 

DECLRRE  (POINTER,  FINAL)  ADDRESS, 

CHRP  BASED  POINTER  BYTE 

64 

2 

FlNfL=POINTEIWm  /*  FIRST  CHAR  IS  CHARACTER  COUNT  */ 

65 

2 

LOOP:  DO  WILE  POINTER  <  FINAL 

66 

3 

POINTER=POINTER+l, 

67 

3 

Cm  COUT(CHAR); 

68 

3 

EM)  LOOP; 

69 

2 

EM)  PRINT; 

78  1 


GREETING:  PROCEDURE  PUBLIC; 


•4  ► 


n 

2 

CALL  PRINK  tCLLO); 

72 

2 

CALL  BIT<MM>; 

«  * 

n 

2 

ENABLE 

•4,  » 

74 

2 

EM)  GREETING; 

i 

75 

1 

END  CONSOLE  tMOIXJLL 

IfiOllE  INFORMATION: 

COOt  AREA  SIZE  *  O10FH  2710 
VARIABLE  AREA  SIZE  *  NOON 
NRKIHUH  STACK  SIZE  «  0604H 
115  LIICS  READ 
0  PROGRAM  ERROR(S) 

END  OF  PL/N-W  CWILATION 


t 


PL/H-8B  COMPILER 


3  <5CT  78  AR0E  1 


ISIS-II  Pl/n-88  V3  1  COVIUITION  OF  NOWLE  RESU.TSHOOULE 
OBJECT  MODULE  PLACED  IN  : FI: RESULT  OBJ 

COMPILER  IIWOKED  BY:  PLNB8  :F1  RESULT.  PLN  IWEF  DEM  MTE  (3  OCT  78) 


1  RESULTSIHOOULE :  Dft 

2  1  TTVRES:  PROCEDURE  EXTERNRL 

3  2  END  TTVRES; 

4  1  COMPOSITE:  PROCEDURE  EXTERNAL; 

5  2  END  CWOSITL 

6  1  CONENT:  PROCEDURE  EXTERNAL 

7  2  END  ORIENT; 

8  1  COUT:  PROCEDURE  (LTR)  EXTERNAL; 

9  2  DECLARE  LTR  BYTE, 

10  2  END  COUT; 

11  1  PRINT:  PROCEDURE  (POINTER)  EXTERNAL; 

12  2  DECLARE  POINTER  ADDRESS; 

13  2  END  PRINT; 

14  1  PRNTNUN:  PROCEDURE  EXTERNAL; 

15  2  EM)  PRNTNUN; 

16  1  DECLARE  (RIFLE,  FILE)  BYTE  EXTERNAL; 

17  1  DECLARE  CR  LITERALLY  W.  LF  LITERALLY  'GAH'; 

18  1  DECLARE  SCORE  (5)  STRUCTURE(HIS5  BYTE,  HIT  BYTE,  LON  BYTE,  LOMRIOHT  BYTE. 

RIGHT  BYTE,  HIOMRIGNT  BYTE,  HIGH  BYTE,  HIQMLEFT  BYTE, 

LEFT  BYTE  LOMLEFT  BYTE  ERROR  BYTE  TURKEY  BYTE, 

TARGETtIGNORED  BYTE)  EXTERNAL 

19  1  DECLARE  DECINAK3)  BYTE  PUBLIC; 

28  1  DECLARE  (I.Z)  BYTE, 

(SUNISHOTS,  NEARIHtSSES)  BYTE  PUBLIC; 


21  1  DECLARE  AD0ER(5)  STRUCTURE' J(13)  BYTE)  EXTERNAL; 

22  1  DECLARE  SPEED(5)  STRUCTURE  (SHOTS  BYTE  TIHE9SUN  ADDRESS)  EXTERNAL 

23  1  DECLARE  AYGUIHE  ADDRESS  PUBLIC; 

24  1  CONVRT:  PROCEDURE  OCX), 

25  2  DECLARE  (€X  BYTE 

26  2  DO  I»B  TO  2i 

27  3  DECIMAL (2-1 )=  HEX  HOD  IB  ♦  38H; 

28  3  KX  «  HEX  t  IB; 

29  3  E»; 

38  2  END  CONVRT, 

31  1  DECLARE  RIFLEIHX8)  BYTE  DATA' 7,  'RIFLE  '), 

32  1  DECLARE  TOTAL*SWTS(14>  BYTE  WTFK 13, 'TOTAL  SWTS  .  '  • 

33  1  DECLARE  RIFl£IHIT(7)  BYTE  DHTA(6,  'HITS:  '); 

34  1  DECLARE  R!FLEfH!SS<9>  BYTE  DATM8,  'HISSES  '); 

35  1  DECLARE  RIFLE4L0MC7)  BYTE  DATACE'LONS:  '); 

36  1  DECLARE  RIFLE<L0WRieKT(13)  BYTE  DATA(12,  'LON  RIGHTS  '); 


jJbW  uiriu* 


37  1 

38  1 

39  1 

48  1 

41  1 

42  1 

43  1 

44  1 

45  1 

46  1 

47  1 

48  1 

49  1 

58  1 


51  1 


52  2 


54  2 

55  2 

56  2 

58  3 

59  3 

68  3 

61  2 
62  2 

63  2 

64  3 

65  3 

66.  4 

67  4 

68  4 

69  4 

76  4 

71  4 

72  4 

73  4 

74  4 

75  4 


DECLARE  RIRE«1GHT<9>  BVTE  0ATA<8,  'RIGHTS  '); 

DECLARE  RlFLEfHIGKIRIGHT ( 14 )  BVTE  DATA- 13,  'HIGH  RIGHTS 
DECLARE  RIFLEIHIGH(8)  BVTE  DATA*  7, 'HIGHS:  '); 

DECLARE  RIFLE«H1GWLEFT(13)  BVTE  0ATAU2,'HIGH  LEFTS  '>; 

DECLARE  RIFLEILEFT(8)  BVTE  DATA<7,  'LEFTS:  '); 

DECLARE  RIFl£«L0N*EFT*12)  BVTE  DATA<11.'L0M  LEFTS  '). 

DECLARE  RIFl£tTURKEV<12)  BVTE  DATA* 11, NO  TARGET:  ); 

DECLARE  RIFLE*TARGET*IGN0PED<18>  BVTE  0ATA<17, 'TARGETS  IGNORED:  '); 
DECLARE  BLANK<3)  BVTE  DATA*2,CR,LF>; 

DECLARE  H0MHANVtSH0TS(18>  BVTE  MTA(17.  'TARGETS  SHOT  AT  '); 
DECLARE  fMERAGE8TIIf<i5>  BVTE  DATA<14,  'AfcRAQE  Tiff:  '), 

DECLARE  UNITS<8>  BVTE  DATA*  7,  'SECONDS' >; 

DECLARE  VOURtSCORE  (18)  BVTE  DATA  (17,  'VOUR  RESULTS  ARE:'); 

DECLARE  NANE*5)  STRUCTURE ( LETTER(9)  BYTE)  EXTERNAL 
DATE  (U)  BVTE  EXTERNAL, 

IDMUABER  (6)  BVTE  EXTERNAL, 

IMFLAG  BVTE  EXTERNAL 

PRESENTIRESULTS:  PROCEDURE  PUBLIC, 


DISABLE; 


CALL  TTVRES; 


/*  RESET  FOR  TTV  OUTPUT  SEE  CONSOL  MODULE  •/ 


CALL  PRINT(  BLAMO, 

CALL  PRINK  BLANK), 

IF  IMFLAG  THEN  DO, 

CALL  PRINT*  OATE); 

CALL  PRINK  IWNUHBER^. 

END; 

CALL  PRINT(  BLANK); 

CALL  PRINK  BLANK), 

ONEIPIFLEIRESULTS:  DO  RIFLE*1  TO  5; 

IF  SPEED(RIFIE-1'*  SHOTS  O  8  TTCN 
TVPEIIT :  DO; 

CALL  PRINT*  BLANK); 

CALL  PRINK  RIFLEIID', 

CALL  COUT*RIFlE*38H>. 

CALL  PRINT*  BLANK), 

CALL  PRINT*  BLAMO; 

IF  IMFLAG  THEN 
CALL  PRINT(.  NAHE(RIFLE-l)); 

CALL  PRINT*  VOLWSCOREV 

CALL  PRINT*  BLANK), 

CALI  PRINT*  BLANK), 


76  4 


FIlE=RIFlE*l; 


/trm  cunkile* 


77  4  CALL  PRINK.  TOTAL  PSHOTS); 

78  4  SUWSHOTS  *  8; 

79  4  SUN:  00  2*  TO  Hi 

88  5  SUWSHOTS  «  SUWSHOTS  ♦  ADC€R<FIL£>  J<2); 

81  5  EWSUfc 

82  4  NENRWISSES  *  I; 

83  4  SUN2  :  00  Z  »  2  TO  9; 

84  5  NEWWHSSE5  *  NEMNN1SSES  ♦  ADOER(FILE).  J<Z> 

85  5  END  SUC; 

86  4  CALL  CONWTCSUWSHOTS); 

87  4  CHI  PWTNUTt 

88  4  OIL  PRINK.  RIFLE4HIT); 

89  4  cm  coMmsca&FiiE)  hid* 

98  4  cm  PRNINUN; 

91  4  cm  P?lNT(.  RIFLEWISS); 

92  4  CTLL  CONVRKSCORE(FILE)  HISS); 

93  4  Cm  PRNTNUH; 

94  4  CHI  PRINK.  RIFLEHON); 

95  4  CTLL  C0NVRT(SC0RE(FILE>.  LON); 

96  4  Cm  PRNTNUH; 

9 7  4  CflLL  PRINK.  RIFLEILOWRIOHT); 

98  4  Cm  CONVRKSCORE(FIIE).  LOWRIGHTV; 

99  4  cm  PRNTNUH; 

1*6  4  (m  PRINK.  RIFlftRIGHT); 

161  4  cm  CONVRKSCORECFILE)  RIGHT); 

182  4  Cm  PRNTNUH; 

18.:  4  CflLl  PRINK  RIFLEfHIGWRIGHT); 

18*  4  Cm  CONVRKSCORE'FILE)  HIGWRIGHT); 

18T.  4  Cm  PRNTNUH  . 

186  4  CALL  PRINK  RIFLEIHIGH); 

187  4  CALL  CONVRKSCORECFILE)  HIGH); 

188  4  CM  PRNTNUH; 

169  4  CALL  PRINK  RIFLEIHIGWLEFT); 

16  4  CALL  C0NVRT(SC0RE(FILE)  HIGWLEFT). 

ill  4  Cm  PRNTNUH; 

.12  4  cm  PRINK  RIFIEHEFT); 

13  4  CALL  CONVRKSCORECFILE)  LEFT); 

14  4  CALL  PRNTNW; 

tt  4  CALL  PRINTS  RIFLEHOWLEFT). 

16  4  CALL  COWRKSCORECFILE)  LOWLEFT), 

17  4  Cm  PRNTNUH. 

16  4  CALL  PRINK  RIFLEITURKEV'; 


C-36 


ail  COMM<SCQRE(FILE>.  TURKEY); 

an  prntmjm; 


4>  u*  4 

la  4 

P  121  4  011  PRINT!.  RIFLEfTARGETIIGNORED); 

^  '122  4  CALL  C0WRT!SC0R£!FILE>  TARGET4IGN0RED). 

123  4  OIL  PRNTNUH; 


V  -r 

i 

V  - 

l 

t 


124  4 

125  4 

126  4 

127  4 

128  4 

138  4 

131  4 

132  4 

134  4 

135  4 

136  4 

137  4 

138  4 

139  4 

140  4 


CALL  PRINT!.  HOMHUNVISHOTS), 
cm  COWmSPmXFILE).  SHOTS); 

Cm  PRNTNUfc 

cm  PRINT!  AVERAGEfTIME); 

IF  !Z:*SPEED!FIl£).  SHOTS)*0  T>CH  2*1; 

AVWTINE  *  !SPEED!FILE>  TINEtSUM^eVZ; 

CflLL  CONVRT!LOM!AVG*T»C)); 

IF!Z.«OECIHAL!0)>  O  3BH  Tt€N  CALL  COUT(Z); 

CHLL  C0UT!DECINAL!1)); 

CRLL  C0UT!2EH);  /*  ft  PERIOD  OR  OECIMAL  POINT  */ 
CflLL  C0UT!DEC1NAL!2)); 

CALL  COUT!20H); 

Cm  PRINT!  UNITS); 

Cm  C0UT!CR); 
cm  C0UT!LF); 


141  4  CRLL  PRINT!  BLANK); 

142  4  CRLL  CONNENT;  /•  COMMENT  AS  TO  REACTION  TINE  */ 


143  4  Cm  PRINT!.  BLANK); 

/>«««>  m  m  m  itwiwtwwwiMWMWMMwiwwtwwww  ««»»»>*——»•»< 

COMPOSITE  IS  EASY  TO  CHRNGE.  IT'S  IN  NODULE  ■FINAL* 


144  4  cm  COMPOSITE;  /*  THE  COMPOSITE  SCORE  IS  INITIALLY:  * 

10B*<MITS/SHOTS)  4  6*!NEAR  NISSES/5H0TS)  4 
10*anc  CREDIT  FROM  PROCEDURE  ‘COMMENT*,  ABOVE) 
-  2*<NUMBER  OF  TARtCTS  IGNORED  *  •/ 

145  4  Cm  PRINT!.  BLANK); 

146  4  EM)  TYPEIIT; 


147  3  EM)  ONEtRIFLEtRESULTS; 

148  2  ENABLE; 


149  2 

vm  l 


END  PRESENT  IRESULTS, 
END  RESULTS4MJ0ULE; 


C>  nWF  INFORMATION: 

* 

CODE  AREA  SIZE  *  8491H  11690 

VARIABLE  AREA  SIZE  *  MIAN  160 


NRKIHUH  STUCK  SIZE  >  MKH  ® 
215  LIMES  REflD 

•  mown  e»«<s> 

EM)  or  PL/tt-M  COfMLOTION 


C-38 


#1 


H/1H»  UlMHLtK 


ISIS-11  Pl/M-BB  n  1  CWILATION  OF  NODULE  FINALMMU 
OBJECT  HOWIE  PLACED  IN  :fl. FINAL.  OBJ 

COM»IL£R  INVOKED  BV  FLNBB  :F1  FINAL  PLN  IMEF  DEBUG  DATE  <25  JIN  79) 


FINAL  MODULE  DO; 

DECLARE  SPEHX3)  STRUCTUR£<SHOTS  BYTL  TMEISUM  ADDRESS)  EXTERNAL. 

(FILE.  RIFLE.  SUWSNOTS.  NEAR4NISSES)  BYTE  EXTERNAL. 

N  BVTE.  AWWTIIC  ADDRESS  EXTERNAL 

SCORED)  STRUCT\JRE(NISS  BVTE.  MIT  BVTE,  LOU  BVTL  LOMMtlGHT  BVTE. 

RIGHT  BVTE.  MIGMRIGHT  BVTL  HIGH  BVTE. 

HIGHdEFT  BVTL  LEFT  BVTE.  UXMLEFT  BYTE- 
ERROR  BYTE.  TURKEY  BVTE.  TARGET! IGNORED  BYTE) 
EXTERNAL, 

FAST  (42)  BVTE  DATA  <41,  'MAN! 1  VOU"RE  THE  FASTEST  SHOT  IN  THE  NEST'), 
GOOD  (25)  BVTE  DATA  <24,  'HEY!  YOU"RE  RRETTV  QUICK'), 

FAIR  <38)  BVTE  DATA  <37,  'OH  NELL!  TKRE"S  HOPE  IF  VOU  SPEED  OR'), 

POOR  <36>  BVTE  DATA  <29, 'SORRY,  BUT  VOU"RE  PRETTY  SLOM'), 

CR  LITERALLY  'BOH',  LF  LITERALLY  'BAH', 

(TIMEICREDIT,  M)  BVTL 

COUT  PROCEDURE  <LTR>  EXTERNAL; 

DECLARE  LTR  BVTL 
EM)  COUT; 


PRINT  PROCEDURE  (POINTER)  EXTERNAL; 
DECLARE  POINTER  ADDRESS; 

EM)  PRINT; 

COMfNT;  PROCEDURE  PUBLIC; 


IB 

2 

IF  AVGfTINE  <=  5  THEN 

11 

2 

DO. 

12 

3 

CALL  PRINK  FAST); 

13 

3 

TIMEICREDIT  =  3; 

14 

3 

END; 

15 

2 

ELSE  IF  AVGIT1ME  <»  ? 

16 

2 

00. 

17 

3 

CALL  PRINK  GOOD); 

18 

3 

TIMEICREDIT  =  2; 

19 

3 

EM); 

2B 

2 

ELSE  IF  AVWTIME  <*  L 

21 

2 

DO; 

22 

3 

CALL  PRINK  FAIR); 

23 

3 

TIICICREDIT  =  1; 

24 

3 

END; 

25 

2 

aSE  DO; 

26 

3 

CALL  PRINK  POOR); 

27 

3 

TIMEICREDIT  «  8; 

28 

3 

END; 

29 

2 

EM)  COMMENT; 

38 

1 

HX2AS  PROCEDURE  OGdAOR 

31  2  DECLARE OCXIADR,  DECIADR)  ADDRESS, 

*CX  BASED  HEXSAOR  ADDRESS. 
DECIMAL  BASED  DECtADR  (3)  BYTE. 
<N,M)  BVTL 


iir 


t/w-ttrcwiLf* 


32  2 

33  3 


DO  N  «  0  TO  4; 


34  3 

35  3 


36  3 

37  2 


38  2 

39  3 


48  3 

41  3 


42  2 


DECIMALS)  «  WX  HOD  18  ♦  3W; 

HEX  »  «X/1D; 

DC. 

*4; 

DO  WILE  DECIHfL(N)  *  38H  AND  WCSi 

DECIMKN)  >  28R  f*  REPLACE  LEADING  ZEROS  KITH  SPACES  */ 

H  *  N  ♦  1; 

END; 

EM)  HK2AS; 


43  1 

44  2 


45  2 


46  2 


COMPOSITE.  PROCEDURE  PUBLIC; 

DECLARE  C0MP<24)  BYTE  DATA(23*  "YOUR  OVERALL  SCORE  IS:  '). 

OVERALL  ADDRESS. 

OECKUt  (5)  BYTE; 

OVEWlL  »  1A8*(SC0RE(F1LE).  HIT)/SUHRSNBT5  ♦  CM0RMISSES^SUmSWTS 
♦  18*TMICREDIT  -  2*<SC0AE<FILE>  TAR8ET8I8N0RED); 

CPU  PRINK  COUP); 


47  2 

49  3 


58  3 

51  4 


52  4 

53  3 


IF  OVERALL  <  8F88H  TON  DO;  /*  I.  E.  ClfCK  FOR  KOATIVE  SCORE  «/ 
CALL  W2AS(.  OVERALL. .  OEMNUM); 

DO  N  a  8  TO  4; 

CALL  COOT (DECfMRKN)  >; 

END; 

EM); 


54  2 

55  2 


56  2 

57  2 


CALL  COUT(CR); 
CALL  COUT(LF); 
CALL  COUT(LF); 
EM>  COMPOSITE; 


58  1 


EM)  FINALfflOOULE; 


MODULE  INFORMATION: 


CODE  AREA  SIZE  *  8229H  553D 

VARIABLE  AREA  SIZE  *  88UH  16D 
HAKIM*  STACK  SIZE  »  8888H  8D 
85  LIKS  READ 
8  PROGRAM  ERROR(S) 


EM)  OF  Pl/H-BB  COWILATION 


75  ION  .  i  rtu.  i  } 


rcm»  wunriut* 


P 


ISIS- l I  PMV-80  VI 1  COFILATION  OF  IHUi  INTERRUPT? 

OBJECT  NODULE  PLACED  IN  ;Fi:  INTER.  OBJ 

^  COMPILER  INVOKED  BY  PLMBB  FI:  INTER.  PUN  IWEF  DEBUG  DOTE  <3  OCT  78) 


fNOMTVECTOR 

1  INTERRUPT?:  DO; 

2  1  DECLARE  TRAIN  BYTE  EXTEFNAL, 

AD0CH2  LITERALLY  'WON'.  /*  ADDRESS  TO  IWICN  Ml  SOD  TIC  F0LL0MW6 

NON-SPECIFIC  Bft  OF  INTEWWPT  •/ 
QCM2E  LITERALLY  '20M';  /»  DC  NON-SPECIFIC  E01,  SEE  PARE  3-MI 

M>  PAGE  3-MI  %i 


3  1  INTERRUPTIROUT INE :  PROCEDURE  INTERRUPT  7  PUBLIC; 

4  2  TRAIN**,  /*  PROGRAM  HILL  CALL  FOR  RESULTS  TO  BE  TYPED  OUT  *t 

5  2  OUTPUT(fCOOC)  =  OCH2E, 

6  2  END  INTERRUPTIROUT  IH, 

7  1  END  INTERRUPT7; 


NODULE  WORMATION: 

COPE  AREA  SIZE  =  O013H  ISO 

VARIABLE  AREA  SIZE  *  MMN  BD 

HRXINUM  STACK  SIZE  =  W00H  BD 

17  LINES  READ 
0  PROGRAM  ERROR(S) 

END  OF  PL/N-A8  COTCILATION 


C-41 


ASN48  :F1 : UPI41C  SRC  NACROFILE  DEBUG  MOD41  TITIEC'18  JAN  79') 


IS1S-1I  NCS-4MP1-41 
18  JAN  79 

LX  OBJ  SB 


NATO  ASSEMLER,  V2  8 


SOURCE  STflTQOfT 


PAGE  1 


ASSEMBLY  LANGUAGE  PROGRAM  NRITTEN  FOR  T>C  UPI-41 
(UNIVERSAL  PERIACm  INTERFACE-41)  DURING  TNE 
SUMCR  TERN  OF  RCRDENIC  VERR  77-78  BY  THOMS  J 
RIORDAN  WILE  WORKING  AS  A  GRRDURTE  ASSISTANT 
FOR  DR  ICRBERT  C.  TOUE  NT  DC  NAWAL  TRAINING 
EQUIPMENT  CENTER  (NTEC)  IN  ORLANDO  FLORIDA 


DC  PROGRRH  ACCEPTS  A  PARALLEL  DATA  TRAN5FER  FROM 
AN  OUTPUT  PORT  (R55)  OF  AN  INTEL  SBC-B8720-4 
SINGLE  BOARD  COMUTER  SYSTEM.  THE  DATA  HOAD  IS 
DECODED  TO  OBTAIN  A  REFERENCE  COLUMN  ON  TNE  FACE 
OF  AN  ADA  CRT.  THE  CRT  CURSOR  IS  THEN  POSITIONED 
IN  THAT  COLUMN.  THE  DATA  WORD  IS  FURTHER  DECODED 
TO  OBTAIN  THE  ADDRESS  IN  RON  OF  A  TEXT  STRING  MHICM 
IS  THEN  SHIFTED  OUT  SERIALLY  THROUGH  AN  I/D  PORT 
LINE  OF  THE  UPI-41  AT  19280  BAUD.  THE  PROGRAM 
IS  INTERRUPT  DRIVEN  AND  UTILIZES  A  FIFO  STACK  TO 
BALANCE  OUT  DISPARITIES  BETWEEN  TNE  RATE  AT  WHICH  IT 
CAN  SHIR  OUT  SERIAL  DATA  AS  COMPARED  TO  TNE  HIGHEST 
POSSIBLE  RATE  AT  WHICH  IT  MUST  ACCEPT  PARALLEL  DATA 

THE  PUNT IfC  CONFIGURATION  OF  TNE  UPMi  IS  AS  FOLLONS 

REGISTER  BANK  t 


REGISTER  SCAB) 
REGISTER  1(R1) 
REGISTER  2<R2> 
REGISTER  3<R3) 
REGISTER  4<R4) 
REGISTER  500) 
REGISTER  «<R6> 
REGISTER  7<R7) 

REGISTER  BANK  1 


7  BIT  ASCII  COPE  COUNTER 
ASCII  CHAR  TO  t€  OUTPUT 
COUNT  FOR  VARIABLE  DELAY 
OUTPUT  STRING  AODRESS 
MASK  VALUE  FROM  LOOKUP  TABLE 
BINARY  CODE  FOR  CRT  COLUMN  POSITION 
COUNTER  FOR  STRING  OUTPUT 
PARALLEL  DATA  TRANSFER 


REGISTER  0<R8> 
REGISTER  1(R1) 
REGISTER  2<R2> 
REGISTER  3(R3> 
REGISTER  4<R4> 
REGISTER  5<R5> 
RE6ISTEP  6(R6) 
REGISTER  7(R7) 


CURRENT  DATA  PC' INTER 
FINAL  DATA  POINTER 
QUEUE  STATUS 
ACCUMULATOR  STORAGE 
UNUSED 

CONSTANT *1330 
CONSTANT *2240 

TEMPORARY  DATA  WORD  STORAGE 


PORT  1  SERIAL  TRANSMISSICN  Oh  BIT  0 

PORT  2  LINES  8-4  USED  AS  A  HP*  JWUT  TO  IWIBIT  TEXT 

STRING  OUTPUT  lilt  7  USED  TO  ENABLE  CHIP  SELECT 
0-1 
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LOC  OBJ 

SEQ 

SOURCE  STATEMENT 

S3  ; 

54  i 

55  ; 

56  i 

0008 

57 

0R68 

AAAQ  A4M 

58 

JVC* 

INIT 

8003 

59 

0R6  3D 

1 

i 

68  EXTINT 

Jlf 

INROUT 

0007 

61 

ORG  7D 

uw(  tnun 

62  TIM1NT:  JIT 

TIINRT 

63 

ORG  1BD 

008A9S 

64  1NIT : 

65 

CPL 

F8 

;  A006  9AE0 

66 

ANL 

P2.WE0H 

67 

68 

69 

78 

71 

72 

II 

73 

I 

74 

'  i 

75 

!  0H0D  691A 

76 

NOV 

RLI1AH 

i  0A0F  3430 

77 

CALL 

OUTPUT 

AA11  3450 

78 

CALL 

DELAV1 

0013  341A 

79 

CALL 

LOCSET 

0015  B920 

88 

MOV 

RLI20H 

0017  3430 

81 

CALL 

OUTPUT 

8019  D5 

82 

SEL 

RBI 

001A  B028 

63 

MOV 

R8.I32D 

001C  B920 

84 

MOV 

Rl»  »320 

001E  BA00 

85 

MOV 

R2/I8 

0*28  6EE0 

86 

NOV 

R6.0224D 

87 

0*<22  B0C1 

88 

NOV 

R5.H930 

89 

0024  9A60 

98 

ANL 

P2.060H 

0026  05 

91 

EN 

I 

0027  FA 

92  MBIT 

HOV 

ftR2 

8028  C627 

93 

JZ 

MBIT 

94  ; 

95  ; 

96  , 

97  ; 

%  t 

0D2A  F0 

99  START 

HOV 

MR8  i 

0828  AF 

100 

NO V 

R7.A  ; 

\  8&  X  CA 

181 

DEC 

R2  > 

!  00.0  FD 

182 

NOV 

A.R5 

,  002t  68 

103 

ADO 

A,R8 

002 F  %:3 

184 

JNZ 

CONT 

[  ]  08  1  B81F 

105 

NOV 

R8.931D  ; 

b  1  0031  18 

186  CONT 

INC 

R8 

U*4FF 

187 

NOV 

R»R7  i 

PAGE  2 


PKSEWE  INTERRUPT  VECTORS 
EXTERNAL  INTERRUPT  VECTOR 
JUf  TO  INTERRUPT  ROUTINE 
TltCR  INTERRUPT  VECTOR 
TIICR  INTERRUPT  ROUTINE 

SET  FLAG  SO  INTERRUPTS  NOT  ENABLED 
DURING  INITIALIZATION  ROUTINE 

;NUNGR  MILL  DRIVE  LINES  0-4  TO  GROUW  IN  CASE 
T*€  SIIURTION  PON  IS  GOING  TO  OC  RUN  I  E. 

THIS  MILL  KEEP  ETCH  RIFLE  FROM  PICKING  UP 
AN  EXWOCOUS  SHOT  DUE  TO  THE  OUTPUT  LINES 
CONING  UP  HIGN-88228  8212  CLEAR  MILL  NOT 
HAVE  BEEN  DONE  AT  THIS  POINT  IN  TIME—, 

LIICS  5  «  6  Mill  BOTH  8E  HIGH  AS  REQUIRED 

TO  LET  AN  EXTERNAL  SIGNAL  CONTROL  DC  TAR  PRES  FLAG, 

BUT  MILL  NOT  ENABLE  THE  CHIP  SELECT  NHICH 

IS  TIED  TO  LINE  7 

ASCII  CHAR  TO  CLEAR  CRT  SCREEN 


SET  UP  CRT  TO  ACCEPT  X  COORD  VALUE 

X  VALUE  FOR  COLUNN  1 

ROUTINE  TO  SEND  ASCII  CHARACItR 

INITIAL  VALUE  FOR  READ  ICHOR V  POINTER 
INITIAL  VALUE  FOR  MUTE  HEHORv  POINTER 
CLEAR  QUEUE  STATUS  REGISTER 

;  224  ♦  32  AVAILABLE  LOCATIONS  IN  RAH 
;*  256  *>  OVERFLOW 
# 193  ♦  63<IAST  RAH  ADDRESS)  ■  256  «> 
;  OVERFLOW 
ENABLE  CHIP  SELECT 
ENABLE  EXTERNAL  INTERRUPTS 
GET  QUEUE  STATUS 
IF  QUEUE  0FTY  NO  ACTION 


GET  DATA  FROM  RAH  LOCATION 
STORE  DATA 

DECREMENT  QUEUE  STATUS  REGISTER 
193  DECIMAL 

OCCK  FOR  LAST  ACCESS  BEING  •  TOP  OF  RAH 


ONE  LESS  THAN  BOTTOM  OF  RAH 
NEXT  RAH  ACCESS  LOCATION 
RETRIEVE  OATA 


t 

ISIS-II  NCS-40/UPI-41  MACRO  A5SEWLER* 

V2  0 

PAGE  3  i 

is  m  n 

1 

IOC  OBJ 

SEQ 

SOURCE  STATEJENT 

j| 

8835  CS 

1M 

sa 

RM 

rl 

MX  AF 

109 

NOV 

R7,A 

STORE  D0T0  |J 

4  * 

M3?  4X0 

110 

CRL 

dllBH 

SET  BIT  WHICH  IS  H8R0  HIRED  LOH 

* 

0838  3? 

ill 

cpl 

0 

4*  r 

0B3A  963E 

112 

JHZ 

CONTN 

MX  4418 

113 

JHP 

RIFSIH 

IF  CODE  FOR  RIFLE  SINULATION  ROUTINE 

*  ■ ' 

114 

HRS  SENT  JUE  TO  IT 

{ , 

083E  SfttF 

115  CONTN: 

ORL 

P2i«lFH 

IF  SINULATION  PON  NOT  BEING  RUN  1 

1 

116 

T)€H  PORT  2  0-4  MUST  BE  UfUTS  ! 

0040  FF 

117 

NOV 

0.R7 

RETRIEVE  ORTA  ■ 

•» 

4 

8041  3405 

118 

cm 

1 VUA 

CHECK  TO  SEE  IF  OUTPUT  DESIRED  E 

'  ' 

8843  8855 

119 

JF« 

ESCAPE 

IF  FLAG  SET  HAIT  FOR  NEH  DATA  l 

8845  3410 

120 

cm 

LOCSET 

SET  UP  ADH  TO  ACCEPT  X-COORD  VALUE  | 

!  * 

L  '  ' 

804?  Ft> 

121 

NOV 

A.R5 

GET  RIFLE  ID  FROH  PROCEDURE  NR9C  STORAGE  | 

122 

LOCATION  f| 

8848  3414 

123 

cm 

TAB 

TAB  OVER  TO  LOCATION  CORRES  TO  RIFLE  •  9 

0048  FF 

124 

NOV 

A#  R7 

RETRIEVE  88/20  DATA  1 

*  , 

0046  47 

125 

SM0P 

0 

PUT  CODE  FOR  TWE  OF  SHOT  9 

126 

IN  UPPER  4  BITS  TO  8LL0H  ACCESS  TO  fj 

127 

16  NENORV  LOCATIONS  PER  SHOT  TVPE  1 

084C  53F0 

128 

RM. 

0.MF8H 

NASK  OUT  LOH  ORDER  BITS  9 

> 

084£  HB 

129 

NOV 

R3>0 

STORE  RELATIVE  ADDRESS  OF  CHAR  STRING  1 

804F  E3 

IX 

N0VP3 

am 

GET  STRING  LENGTH  ] 

0850  f€ 

IX 

NOV 

R6.0 

STORE  COUNTER  VALUE  1 

8851  3427 

132 

cm 

STROUT 

PROCEDURE  TO  OUTFIT  ASCII  STR  fj 

0053  3450 

133 

cm 

CRLF 

8855  05 

134  ESC0P6 

sa 

RSI 

RETURN  TO  CORRECT  REG  BAM  FOR  HAIT  LOOP  ]M 

i 

8856  0427 

135 

JI0* 

HAIT 

IX  i 

13?  ; 

IX  ; 

IX  • 

140  ; 

\ 

8858  05 

141  INROUT 

sa 

RBI 

INTERRUPT  REG  BAR 

8058  86 

142 

NO V 

R3-A 

SAVE  ACCUNULATOR 

0858  FE 

143 

NOV 

A.R6 

2240 

0856  60 

144 

000 

0.R2 

i 

085C  (668 

145 

JZ 

QUEFUL 

OECK  FOR  QUEUE  FILL 

0856  10 

146 

INC 

R2 

INCIDENT  QUEUE  STATUS  REGISTER 

085F  22 

147  • 

IN 

a  era 

UWT  DATA 

i 

148 

FROH  SR  INTERRUPT  STORE  FF 

0060  HI 

149 

NOV 

8RLA 

STORE  NEH  DATA 

8061  FO 

IX 

NOV 

0,R5 

1930 

i 

0062  68 

151 

no 

aRi 

CHECK  TO  SEE  IF  STORE  HRS 

\ 

152 

IN  LAST  AVAILABLE  RAH  LOCATION 

0863  9667 

153 

JNZ 

CONTI 

IF  NOT  TIEN  CONTINUE  i 

/ 

8065  B91F 

154 

NOV 

PL  *310 

80TT0H  OF  QUEUE 

i 

8067  19 

155  CONTI 

INC 

PI 

INCIDENT  WRITE  POINTER  REG 

0868  FB 

156  QUEFUL 

NOV 

aR3 

RESTORE  ACCUNULATi* 

L 

>•*>9  93 

157 

RETR 

RETURN  FROH  INTERRUPT 

8860  65 

IX  TIURT 

STOP 

TCNT 

■PREVENT  FURTHER  TIfER  OVERfLOM 

M068  C  ? 

159 

NOV 

0-PSH 

■THIS  SEQUENCE  OF  OPERATIONS  ALLOWS 

0060  87 

160 

DEC 

0 

■  TIE  RETURN  ADDRESS  MUCH  HAS  STORED 

O 

08bO  5X7 

161 

0NL 

A,*07H 

ON  THE  STACK  TO  BE  aTERED  SO  THAT 

808f  67 

162 

a 

0 

■  ON  RETURN  IT  HILL  NOT  CONTINUE  IN  j 

PAGE  4 
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LOC  OBJ 

0879  0386 
0072  AS 
0673  10 
0074  10 
0075  2314 
0077  54AD 
0679  93 
6070  23F0 
607C  0B 
0970  E3 
007E  0E 
007f  3427 
6081  3450 
0063  0483 


SOURCE  STRTBfMT 


163 

POO 

ft,  16 

164 

NOV 

R6.R 

16S 

INC 

m 

166 

INC 

m 

167 

NOV 

A,  HON  FAL1 

168 

CALL 

FAIL 

169 

RETR 

170  FINIS.  NOV 

A,l  LON  DOC 

171 

NOV 

R3»ft 

172 

twn 

R.IA 

173 

NON 

R6.R 

174 

CALL 

STROUT 

175 

CALL 

CRLF 

176  HERE:  Jlf 

HERE 

/THE  satc  loop  it  mas  in  which  forced 
;  THE  INTERRUPT  CALL  IN  THE  FIRST  aLACE. 
; PROCEDURE  CAN  BE  FIGURED  OUT  BY  *F 
;UPI-41  NANUAL  PP  2-6<S 


iTEST  COW.ETE  ICSSAQE 


i WRIT  FOR  RESET (EXTERNAL) 


SUBROUTINES  IN  FIRST  PAGE  OF  *HORY 


0106 
0106  01 
0101  82 
6102  04 
0103  88 
8104  10 
0105  53E0 
0107  47 
01«  77 
0109  AO 
0100  07 
0106  03 

0101  «c 
0101'  00 
610E  5C 
610F  85 

6110  9013 
0112  9*3 
01 ll  S3 
011'*  17 
6115  47 
01  If  09 
0117  3430 
011?  S3 
0110  6916 

6111  3438 
yllfr  6930 
8120  3430 
0UV  6937 
6124  3438 
0128  8? 
0127  16 
0121  FS 


ORG  2560 

HSKOAT  .  00  10, 20. 40, 80, 16D 


185  NRSK: 

ANL 

A,«0E8H 

NRSK  OUT  5  LW  ORDER  BITS 

106 

SNAP 

A 

RIFLE  ID  IN  BITS  1,2,3 

187 

RR 

A 

IN  SITS  8,1,2 

188 

NON 

R5.A 

STORE  RIRE  COOE 

189 

DEC 

A 

RIFLE  CODE(FILE)  0-4 

190 

NOVP 

A,«A 

GET  LOOKUP  VALUE  FOR  CURPENT  RIFLE 

191 

NOV 

R4,A 

STORE  VALUE 

192 

IN 

A.P2 

GET  RIFLE  NRSK 

193 

ANL 

A>R4 

194 

OR 

F0 

JUH>  IF  RIFLE  NOT  NRSWEP 

195 

TNZ 

C0NT2 

1% 

ca 

F0 

SET  FLAG  INDICATING  NA9 

197  CQKT2 

RET 

RETURN  FRON  SUBROUTHC 

198  TAB 

INC 

A 

CREATE  CORRECT  DIGIT  FOF  HIGH  0VTE 

199 

SNAP 

A 

PUT  IN  HIGH  PYTE 

280 

NOV 

R1,A 

201 

CALL 

OUTPUT 

;  RETURN  FRON  S-UBRQUT1NE 

202 

RET 

203  LOCSET 

NOV 

R1,»1BH 

;«SCII  ESCAPE  (REF  ADN  NfHJAL 

204 

295 

CALL 

OUTPUT 

/RE  CURSOR  POSITIONING) 

286 

NOV 

Rl, *300  / ASCII  EQUALS 

287 

CALL 

OUTPUT 

200 

NOV 

R1,I37H  /RON  24  OF  ADH  TERNINAL 

269 

as 

211  STROUT 

212 
213 


OUTPUT 


! RETURN  FRCP  ‘UBROUTIIC 
j GET  TO  LOCATION  OF  TEXT  BEGINNING 
RETRIEVE  PROF  3  ADDRESS  OF 
/ ASCII  STRING 

D-4 
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IOC  OBJ 

SE8 

SOURCE  STATEMENT 

8129  G 

214 

H0VP3 

TOM  ; GET  ASCII  CHARACTER 

812ft  R9 

213 

NOV 

Rl#ft 

0128  3438 

216 

CALL 

OUTPUT 

812DEE27 

217 

DJNZ 

R6.STRQUT 

(HAVE  ALL  CHAR  BEEN  OUTPUT 

812F  83 

218 

RET 

/RETURN  FROM  SUBROUTINE 

8138  IS 

219  OUTPUT:  OIS 

I 

8131  6887 

228 

HO V 

R0.M7H  iSERHL  BIT  COUNTER 

0133  F9 

221 

NOV 

aRl  (GET  ASCII  CHARACTER  TO  BE  OUTPUT 

0134  9988 

222 

ftL 

Pl> NON  .PUT  OUT  START  BIT 

8136  6A04 

223 

NOV 

R2.W4H  .SET  P  DELAV  LOOP  LENGTH 

8138  3440 

224 

CALL 

OELAV 

813ft  39 

225  L00P1: 

OUTL 

PI,  A  ;  OUTPi IT  CURRENT  BIT  OF  SERIAL  COOE 

0138  77 

226 

RR 

A  ;  GET  'EXT  BIT  OF  ASCII  COOE 

013C  80 

227 

NOP 

>  WRIT  1  INSTRUCTION  CYCLE  TO  COMPENSATE 

228 

.FOR  RR  BEING  A  SINGLE  CYCLE  OPERATION 

0130  Bft82 

229 

NOV 

R2.W2H  ; SET  IP  DELAV  LOOP  LENGTH 

813F  3440 

238 

CALL 

DELAV 

8141  E83fl 

231 

DJNZ 

R8.L00P1 

i  TEST  FOR  7  BITS  OUTPUT 

0143  8901 

232 

ORL 

P1.M1H  ;PUT  HUT  STOP  BIT 

0145  Bft83 

233 

NOV 

R2.M3H  ;SET  IP  DELAY  LOOP  LENGTH 

0147  3440 

234 

CALL 

DELAY 

0149  B64C 

235 

JF0 

NO I MEN  ; IF  IN  SETUP  SEGMENT  DONT  ENABLE  INTERRUPTS 

0148  85 

236 

EN 

I 

014C  83 

237  NOIfCN:  RET 

;  RETURN  FROM  SUBROUTINE 

8140  Eft40 

238  DELRV: 

DJNZ 

R2,  DELAY 

.VARIABLE  DELAY  DEPENDING  ON  R2 

014F  83 

239 

RET 

; RETURN  FROM  SUBROUTINE 

8158  8996 

248  DELflYl 

NOV 

RL 11500 

(NESTED  DELAY  LOOP.  APPROX  1/4  SEC 

0152  BflFF 

241  DLOOP: 

NOV 

R2.I8FFH 

i 

0154  3440 

242 

CALL 

DELAY 

0156  E952 

243 

DJNZ 

RL  DLOOP 

0158  83 

244 

RET 

0159  FE 

245  PULBIT 

NOV 

aR6 

(CURRENT  RIFLE  NUMBER 

815ft  07 

246 

DEC 

A 

(CREATE  POINTER  FOR  LOOKUP  TABLE 

0158  ft3 

247 

NOW 

am 

(GET  BYTE  WITH  CORRECT  PULSE  BIT  SET 

015C  83 

248 

RET 

0150  690ft 

249  CRLF 

NO V 

RLMAH 

;LI*  FEET 

015F  3438 

258 

CALL 

OUTPUT 

0161  8900 

251 

NOV 

R1.N0H 

(CARRIAGE  RETURN 

0163  3438 

252 

CALL 

OUTPUT 

0165  83 

253 

RET 

0166  27 

254  CKCK: 

CLR 

A 

TI*F  STARTING  COUNT  FOR  TIMEOUT 

255 

T*  PROCESSOR  HILL  BE  INTERRUPTED 

256 

IF  T*  BB^B  DOESN'T  RESPOO  WITHIN 

257 

A  SPECIFIED  TI*. 

0167  62 

256 

NOV 

T.A 

LOAD  TIMER 

6168  55 

259 

STRT 

T 

START  TIMER 

0169  5669 

268  LOOK: 

JTi 

LOOK 

UPI  MILL  LOOK  FOR  RESET  UNTIL 

261 

TIMEOUT  HAS  OCCURED 

0168  65 

26 2 

STOP 

TCNT 

INTERRUPT  MUST  NOT  OCCUR 

016C  898ft 

263 

NOV 

Rl.  »10D 

GIVE  88/20  SUFFICIENT  TI*  TO 

016E  BftFF 

264  LOOPZ: 

NOV 

R2.I0FFH 

SEW  OUT  VOTRAX  INIT1L1ZATI0N  MOPOS 

0170  3440 

265 

CALL 

OELAV 

8172  E96E 

266 

DJNZ 

Rl, LOOPZ 

8174  0688 

267 

JN18F 

NOINTR 

RESPONSE  FROM  98/28? 

0176  22 

268 

IN 

A,  088 

BRING  IN  tt/20  DATA 

PRSE  6 
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LOC  OBJ  SEG  SOURCE  STATEICHT 


0177  DC 

269 

ML 

A>R4  *  IF  IDENTICAL  RESULT  IS  ZERO 

6178  C684 

278 

JZ 

NEXT1 

THEN  00  ON  HITH  TEST 

017A  231A 

271 

HOY 

A>«  LON  FAL2 

617C  54AD 

272 

CALL 

FAIL 

017E  2484 

273 

JMP 

NEXT1 

6166  2324 

274  NOINTR:  MOV 

A»#  LON  FAL3 

0162  54*4) 

275 

CALL 

FAIL 

INDICATE  FAILURE 

0184  B90A 

276  MEXT1: 

MOV 

RLM6D 

GIVE  66/26  TIME  TO  SEND  REMAINING 

277 

PORTION  OF  (CSSAGE 

6186  6AFF 

278  LOOPY: 

HOY 

R2MFFH 

6188  3440 

279 

CALL 

DELAY 

0106  E986 

288 

DJNZ 

Ri/LOOFV 

016C  83 

281 

RET 

8180  FE 

282  RIFLOP: 

HO V 

A.R6 

RETRIEVE  RIFLE  NUMBER 

618E  £7 

283 

RL 

A 

CODE  IN  BITS  1.2,13 

618F  4381 

284 

ORL 

A.I81H 

NO  START  BIT  ON  SERIAL  OUT  LINE 

8191  39 

285 

OUTL 

FI,  A 

SET  UP  MUX 

0192  FE 

286 

MOV 

A.R6 

GET  CURRENT  RIFLE 

8193  47 

287 

SHAP 

A 

PUT  IN  HIGH  BYTE 

0194  E7 

288 

RL 

A 

UPPER  3  BITS 

0195  40 

289 

ORL 

A.R5 

CREATE  CORRECT  RETURN  CODE 

0196  AC 

298 

NOV 

R4,  A 

TEMP  STORE 

0197  3459 

291 

CALL 

PULBIT 

GET  BYTE  HITH  CORRECT  BIT  SET 

292 

FOR  RIFLE  TRIGGER 

0199  4340 

293 

ORL 

a  MAH 

KEEP  TARGET  PRESENT  DONN 

0196  3A 

294 

OUTL 

P2A 

RISING  EDGE  OP  TRIGGER  PULSE 

619C  9646 

295 

AN. 

P2,*46H 

FALLING  EDGE  OF  PULSE 

019E  3466 

296 

CALL 

CHECK 

81A0  83 

297 

RET 

296  ; 

299  i  DRIVER  FOR  RIFLE  SIMULATION  AND  ITS  ICSSAGES  LOCATED 
366  ;  IN  FOURTH  PAGE  OF  MEMORY 

361  ; 

362  i 

363  ;  THIS  SEGMENT  OF  TIC  UPI-PROGRAM  PROVIDES  SIMULATED 

364  ;  RIFLE  OATA  WUT  TO  THE  80/26  COMPUTER  IT  CHECKS 

385  ;  FOR  TIC  PROPER  RETURN  BYTE  TO  TIC  UPI-41  FOR  THE 

366  >  SIMULATED  SHOT  AN)  IttICATES  FAILURES  BY  A  MESSAGE 

387  ;  TO  TIC  CONSOLE  INITIALLY  IT  SIGNS  ON  AND  PROCTS 

386  >  TIC  USER  FOR  TIC  HARDWARE  MODIFICATIONS  NECESSARY 

389  i  IF  A  FAILURE  OCCURS  TIC  TEST  HILL  CONTINUE  AND  OUT- 

316  ;  PUTS  1  FAILURE  MESSAGE  FOR  EACH  FAILURE  OCCURENCE 

311  ;  WHEN  TIC  TEST  IS  COMPLETE  IT  PROMPTS  THE  USER  TO 

312  ;  ASM  THE  99/26  FOR  ITS  OUTPUT. 

313  ; 

314  ; 

315  >  TIC  PROGRAM  IS  NON-INTERRUPT  DRIVEN  AND  INSTEAD  USES 

316  >  THE  INTERRUPT  FLAG  TO  DETERNINE  VCN  VALID  DATA  IS  PRESENT 

317  ;  ON  TIC  96/26  OATA  LUCS.  UPON  ENTERING  THE  ROUTINE 

318  ;  FLAG  6  IS  SET  SO  THAT  INTERRUPTS  HILL  NOT  8E  REENABLED 

319  ;  404  TIC  OUTPUT  ROUTINE  IS  CALLED  IF  1TC  80/20  DOES 

326  ;  NOT  RESPOW  AT  ALL  TO  AN  ItfUT  BY  TIC  UP1-4K  IttlGfflB 

321  >  BY  THE  INTERRUPT  FLAG  ICVER  BEING  SET>  TIC  41  TIMES 

322  >  OUT  AND  JUDGES  THIS  AS  A  FAILURE  AND  CONTINUES  THE  TEST 

323  ; 


0-6 
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LOC  OBJ 


SOURCE  STATEKNT 


8288  86 
8281  82 

8282  84 

8283  83 

8284  86 

8285  68 

8286  85 

8287  84 

8288  88 
8289  89 
8288  88 
8286  82 
828C  87 
8280  88 
828E  86 
028F  81 


324  ; 

325  . 

326  i 

327  ; 

328  ; 

329  ; 

338  ; 

331  ; 

332  ; 

333  ; 

334  ; 

333  ; 

336  ; 

337  ; 

338  ; 

339  ; 

348  ; 

341  ; 

342  , 

343  ; 

344  ; 

345  ; 

346  ; 

347 

348  ; 

349  SHTCOO 


REGISTER  BANK  1  IS  USED  FOR  H€  ROUTINE  AND  IS  REOIFINED 
85  FOLLOWS: 

REGISTER  6  UNUSED 

REGISTER  1  OUTER  LOOP  OF  DELAY  COUNTER 
REGISTER  2  I  NCR  LOOP  OF  DELAY  COUNTER 
REGISTER  3  DELAY  COUNTER 
REGISTER  4  EtfECTED  RETURN  DATA  FROM  88/28 
REGISTERS  TEMP  STORAGE 

REGISTER  6  5  RIFLE  LOOP  COUNTER  AM>  CURRENT  RIFLE 
REGISTER  7  16  SHOT  POSSIBILITIES  LOOP  COUNTER 
AND  CURRENT  SNOT  TYPE 

THE  BOTTOM  5  LINES  OF  PORT  TWO  FUNCTION  A5  THE  RIFLE 
TRIGGERS  INSTEAD  OF  AS  TIC  MASK  INPUTS. 

LINE  SIR  OF  PORT  TNO  IS  THE  TARGET  PRESENT  SIGNAL 

PORT  1  LIICS  4-7  SERVE  AS  THE  SHOT  TYPE  INPUT  LINES  FOR 
THE  98/28 


QRG  512D 


;  PAGE  2 


D8  0,2, 4, 3. 6, 8. 5. 4 


D8  8, 9, 8, 2, 7, 8, 6,1 


351  ; 

352  > 

8210  85 

353  RIFSIH:  CLR 

F8 

.HHILE  F8  IS  ALREADY  SET  AT  THIS  POINT 

354 

;  THIS  ADOS  A  LITTLE  CLARITY,  TIC  POINT 

355 

•  IS  THAT  INTERRUPTS  CANNOT  BE  REENABLED 

8211  95 

356 

CPI 

F8 

/WHEN  TIC  SERIAL  OUTPUT  ROUTINE  IS  ENTERED 

357 

8212  23(8 

358 

MOV 

A.MC8H 

8214  3A 

359 

OUTL 

P2»A 

/DISALLOW  FURTHER  INTERRUPT  REQUESTS 

368 

/OR  INTERRUPT  FUB  SETS  BY  DESELECTING 

361 

.THE  CHIP  TARGET  FLAG  DOWN  AND  TRIGGERS  DOW, 

362 

/WD  TAR  PRES  CONTROL  SET  FOR  UP1-41  CONTROL 

8215  15 

363 

D1S 

I 

;WCN  CHIP  RESELECTED  INTERRUPTS  MILL 

364 

0-7 

/BE  OCCXED  THROUGH  TIC  INT  FLAG 

jSIS-ll  HCS-48/UPI-41  MACRO  ASSBCLER*  V2.0 
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LOC  OBJ 

SE8 

SOURCE 

STNTQCNT 

8216  25 

365 

EN 

TCMTI 

THER  INTERRUPT  IS  USED  NS  N  TIMEOUT 

366 

FOR  SEARCH  ROUTINES 

8217  6918 

367 

NOV 

RL81AH 

CLEAR  TIC  CRT  SCREEN  4  HONE  CURSOR 

8219  3438 

368 

CALL 

OUTPUT 

8218  3458 

369 

CALL 

0ELAV1 

ALLOW  CRT  TINE  TO  CLEAR 

021D  3458 

378 

CALL 

CALF 

SPNCE  DOW  THREE  LINES 

821F  3498 

371 

CALL 

CRLF 

8221  3458 

372 

CALL 

OIF 

8223  2388 

373 

NOV 

ft#  LON  SIGNON 

ADDRESS  OF  SIGN  ON  tCSSNQE 

8225  AB 

374 

NO V 

R3»N 

STORE  SIRING  ADDRESS 

8226  E3 

375 

mm 

A.8A 

GET  STRING  LENGTH 

8227  HE 

376 

NOV 

R6.N 

STORE  STRING  LENGTH 

8228  3427 

377 

CALL 

STROUT 

SBC  STRENGTH 

8228  3458 

378 

CALL 

CRLF 

CARRIAGE  RETURN  LIFE  FEED 

022C  3458 

379 

CALL 

CRLF 

022E  23E8 

388 

NOV 

A,4  LON  FRONPT 

PROMPT  MESSAGE 

8238  AB 

381 

NOV 

R3*A 

STORE  STRING  ADDRESS 

8231  E3 

382 

mm 

N>8N 

8232  AE 

383 

NO V 

R6.A 

8233  3427 

384 

CALL 

STROUT 

8235  3450 

385 

CALL 

CRLF 

8237  3458 

386 

CALL 

0ELAV1 

MBIT  FOR  88728  TO  TYPE  OUT  LET'S  START 

8239  3458 

387 

CALL 

0ELNV1 

8238  3458 

388 

CALL 

0ELHV1 

8230  05 

389  TEST: 

sa 

RBI 

823E  9A80 

398 

AN. 

P2.M0H 

REENABLE  CHIP  SELECT  AND  PUT  TARGET 

391 

FLAG  UP 

8248  BE  05 

392  RLOOP5 

NOV 

R6.A85H 

INITIALIZE  RIFLE  NICER  AND  LOOP 

393 

COUNTER  FOR  5  TINES  THROUGH 

8242  BF18 

394  RLOOP1 

NOV 

R7.816 

INITIALIZE  SHOT  TYPE  AND  LOOP 

395 

COUNTER  FOR  16  TINES  TWOUOH 

8244  54CD 

396  RL0QP2: 

CALL 

SHLOOP 

RIFLE  SIMULATION  SUBROUTINE 

8246  EF44 

397 

DJNZ 

R7.RL00P2 

ALL  DATA  POSSIBILITIES  DONE? 

8248  EE42 

398 

DJNZ 

R6*RLOOP1 

DONE? 

0/4H  8A48 

399 

OAL 

P2»#48H 

TARGET  PRESENT  DOW 

824C  6885 

488 

NOV 

R3.I5B 

MBIT  1  SEC  REQUIRED  BEFORE  NEM  TAR 

824E  3458 

481  LOOPX: 

CALL 

OELAM 

CAN  APPEAR 

8258  E84E 

482 

DJNZ 

R3.L00PX 

6252  9A88 

483  TOLATE 

AN. 

P2/I88H 

TARGET  PRESENT  UP 

8254  BAFF 

484 

NOV 

R2#NFFN 

HAKE  SURE  88/28  SEES  a« 

8256  3440 

485 

CALL 

OELNV 

8258  8A40 

486 

OAL 

P2/I48H 

TARGET  PRESENT  DOW 

8258  BAFF 

487 

NOV 

R2,« FFH 

GIVE  88/28  CHANCE  TO  RESPOND 

825C  3440 

488 

CALL 

DELNV 

8256  6E05 

489 

NOV 

R6.I5 

RIFLE  COUNTER 

8268  G08A 

418 

NOV 

R5/40AH 

CODE  FOR  HISS- TOO  LATE 

8262  3480 

411  LOOPC 

CALL 

Riaop  ; 

SUBAOUTHE  WICH  FIRES  SHOT  FOP  CURRENT 

412 

RIFLE*  DECKS  FOR  RESET  TO  EXTERNAL  FF, 

413 

i 

AM)  DECKS  FOR  CORRECT  MESSAGE  SENT  BACK 

414 

BV  88/28 

0264  EE62 

415 

DJNZ 

P6,  LOOPC 

DOW? 

8*6  8885 

416 

NOV 

R3/I50  ; 

WIT  1  SEC  RED  FOR  NEM  TAR  APPEARANCE 

8268  3458 

417  LOOP! 

cat 

DELAV1 

82’A  EB66 

418 

DJNZ 

P3.L00PI 

8z6C  BE  85 

419  TAR1GN.  NOV 

R6< 450 

RJfLE  COUNTER 

D-8 


m 


t 

i: 


* 

■%  r 
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LOC  OBJ 

SEO 

SOURCE 

STATEMENT 

826E34S8 

421  LOOPO 

CALL 

OELftVl 

G27»9aw 

421 

AN. 

P2.N8N 

TARGET  PRESENT  UP 

9272  BUFF 

422 

MOV 

R2.88FFH 

GIX  88/28  TIME  TO  RESPOND 

8274  3440 

423 

CALL 

OELAV 

8276  3459 

424 

CALL 

POBIT 

8278  4X8 

425 

ORL 

a  8111688886 

TOP  3  BITS  MUST  BE  ZERO  AFTER  CPL 

8278  37 

426 

CFL 

A 

ALL  BUT  ONE  RIFLE  HILL  SHOOT 

827B  38 

427 

am. 

P2.A 

RISING  EDGE  OF  TRIGGERS 

G27C99H 

428 

AN. 

PI.  MIN 

HAVE  ORTA  SET  FOR  HITS,  NO  START  BIT 

827E  SMI 

4 29 

AN. 

P2»M8 

FALLING  EDGE 

8288  3451 

438 

CALL 

0ELAV1 

8282  3458 

431 

CALL 

DCLAV1 

GIVE  88/28  THE  TO  SEND  ALL  MESSAGES 

8284  22 

432 

IN 

ft  MB 

CLEAR  IGF  FLAG  MUCH  THE  88/28  SENT  4 

433 

POSES  TO. 

8285  8848 

434 

ORL 

P2.848H 

TARGET  PRESENT  DOW 

8287  6686 

435 

NOV 

R3/86D 

DELAV  OVER  i  SECOND  SO  THAT  DPI  HILL  K 

8289  3458 

436  100PK 

CALL 

DELAVi 

CERTAIN  TO  HAVE  RECEIVED  INTER  POSE 

8288  EB89 

437 

DJNZ 

R3.LOOPK 

8280  0690 

438 

JNIBF 

NOINT 

IF  NO  INI  POSE  INDICATE  A  FAILURE 

028F  FE 

439 

NOV 

A/R6 

GET  CURRENT  RIFLE 

8298  E7 

448 

AL 

A 

DATA  IN  BITS  3.2,1 

8291  47 

441 

SNAP 

A 

IN  BITS  7,6,5. 

8292  438C 

442 

ORL 

M8CM 

C  IS  ADDRESS  OF  "TARGET  IGNORED  " 

8294  AC 

443 

NOV 

R4,A 

STORE 

8295  22 

444 

IN 

A.  086 

DfUT  DATA 

8296  DC 

445 

ML 

A.R4 

IF  RESOT  IS  ZERO  TTW  BYTES  IDENTICAL 

8297  C6A1 

446 

JZ 

CONTA 

8299  231ft 

447 

NOV 

A/8  LOM  FRL2 

;  PREPARE  TO  CALL  DATA  FAILURE  ROUT 

8298  449F 

448 

JAP 

CONTB 

8290  2324 

449  NOINT: 

NOV 

^8  LOM  FAL3 

829F  54AD 

458  C0NT8 

CALL 

FAIL 

82A1  EE6E 

451  CONTA 

DJNZ 

R6,  LOOM 

82A3  BE85 

452  NINOTR:  MOV 

R6.85 

;5  RiaES 

82A5  8088 

453 

NOV 

R5/886H 

iCOOC  FOR  NO  TARGET 

82A7  3480 

454  LOOPJ 

CALL 

RIFUJP 

82A9EEA7 

455 

DJNZ 

R6,  LOOPJ 

62AB  847ft 

456 

JNR 

FINIS 

457  ; 

458  ; 

459  i 

468  ; 

461  > 

462  ; 

463  , 

464  ; 

02AO  C5 

465  FAIL 

SEL 

m 

SEND  RiaE  IDENTIFIER  TO  CRT 

82AE  ftF 

466 

NOV 

R7.A 

STORE  FAILURE  TYRE 

82AF  05 

467 

SEL 

881 

8288  FE 

468 

NOV 

ftR6 

GET  CURRENT  RiaE 

8281  C5 

469 

SEL 

RB8 

8282  E7 

478 

RL 

A 

NO  BY  TWO  TO  ACCESS  TWO  LOCATIONS  AT  A  TINE 

8283  4X8 

471 

ORL 

A.  88F0H 

ACCESS  FW. 

8285  AD 

472 

HO V 

85.  A 

TBf  STORE 

8286  A3 

473 

NOVA 

a  OR 

GET  RIFLE  IDENTIFIER 

8267  A9 

474 

NOV 

Rl.A 

D-9 

-isis-n  Hcs-48/uPMi  macro  assooer.  V2.e 
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LOC  OBJ 

SEO 

SOURCE  STATEMENT 

82B8  3438 

475 

CALL 

OUTPUT 

82SA  FD 

476 

NOV 

A.R5 

8286  17 

477 

INC 

A 

82BC  A3 

478 

mvp 

am 

8260  A9 

479 

NOV 

R1.A 

02BE  3431 

488 

CALL 

OUTPUT 

82C8  B92* 

461 

NOV 

RL8828H 

82C2  3438 

482 

CALL 

OUTPUT 

82C4  FF 

483 

NOV 

aR7 

805  AB 

484 

NO V 

R3.A 

82C6E3 

485 

N0VP3 

am 

807  AE 

486 

NOV 

R6.A 

82C8  3427 

487 

CAU 

STROUT 

82CA  3450 

488 

CALL 

CALF 

82CC  93 

489 

RETR 

82tl»  FF 

498  SWOOP  NOV 

aR7 

82LE  87 

491 

DEC 

A 

82CF  37 

492 

CPI 

A 

821-0  538F 

493 

ANL 

a«8FH 

821-2  47 

494 

SNAP 

A 

021>3  HD 

495 

NOV 

R5.A 

021-4  FE 

496 

HO V 

aR6 

021-5  17 

497 

AL 

A 

821-6  4D 

498 

OAL 

aw 

821*7  4381 

499 

OKI 

a«8iH 

821-9  39 

580 

OUTL 

PI  A 

581 

83*  FF 

582 

NOV 

aR7 

82D8  07 

583 

DEC 

A 

826C  A3 

584 

NOVP 

am 

82P0  AD 

585 

NOV 

R5.A 

82t€  FE 

586 

NOV 

aw 

83f  47 

587 

SNAP 

A 

808  E7 

588 

RL 

A 

82E1  40 

589 

OAL 

ai» 

82E2  AC 

518 

NOV 

R4.A 

8213  3459 

511 

CAU 

PULBIT 

512 

513 

«A5  3A 

514 

OUTL 

P2.A 

0*t6  27 

515 

CLR 

A 

82F7  3A 

516 

OUTL 

P2.A 

517 

518 

519 
528 

521 

522 

523 

524 

525 

526 

527 

528 

529 


RETRIEVE  POINTER 
ACCESS  NEXT  LOCATION 
(ET  REST  OF  IDENTIFIER 


ASCII  SPACE 

RETRIEVE  FAILURE  TVPE 

NON  SEW  OUT  FAILURE  TVPE  TO  CRT 


OP  SNOT  TVPE 


SWT  DATA  LIICS  HAVE  INVERTING  DRIVERS 

SHUT  TVPE  DATA  LINES  ARE  PI  4-7 

TEW  STORE 

GET  CURRENT  RIFLE 

PUT  CODE  IN  BITS  1.2,43 

OR  SHOT  TVPE  4  RIFLE  •  TOQEM-’ 

DON'T  SEW  OUT  A  START  BIT 
SET  UP  SHOT  DATA  LINES  AW 
INPUTS  TO  TIC  IH.T1PLEXER. 

RETRIEVE  SHOT  TVPE 

GET  CORRECT  RETURN  COOE  FOR  COWARISON 
STORE 

GET  CURRENT  RU  LE 
PUT  COOE  IN  UPTER  4  BITS 
UPPER  3  BITS 

CREATE  EWE C TEL  RETURN  COOE 
STORE 

GET  FROM  PAGE  1  A  BYTE  MUCH  HILL 
HAVE  TIC  CORRECT  BIT  SIT  FOR  A 
TRIGGER  PULL  BY  THIS  RIFLE 
RISING  EDGE  OF  PULSE 

FALLING  EDGE  OF  PULSE  NOTE  THIS 
NAV  OR  AAV  NOT  BE  TIC  CASE  IN  REALITY 
FOR  IF  THE  AAS*  SNITCH  FOR  THE  CURRENT 
RIFLE  IS  ON.  THEN  THE  ACTUAL  PULSE 
Mia  ONLY  BE  THE  MUCH  SHORTER  PULSE<588 
NSEC)  THAT  THF  UP!  PROVIDES  AS  A  FAST 
TURN  ON  FOR  THE  PORT  BEFORE  THE  58K 
PULLUP  TAKES  EFFECT  WRE  TW  58K 
PUaUP  MILL  WT  PROVIDE  A  HIGH  OUTPUT 
DUE  TO  TIC  W  PU1DONN  AW  THE  QUTl 
INSRUCTION  MOXD  NOT  BE  CEDED 
THE  LOGIC  'HIM'  HILL  ACTUAUY  BE 
ABOUT  15V  HH1CH  IS  ACCEPTWE  TO  THE  41 


*18  3466 


CAU  CHECK 


O-TO 


s 

r 
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LOC  OBJ 

SEQ 

SOURCE  STATEICNT 

62EA83 

331 

RET 

331 

532 

92F2 

333 

ORG 

2F2H 

334 

82F2  3231 

533 

DA 

'Rl',  'R2 

82F4  3232 
82F6  3233 
02F9  3234 
82FA5235 


STRING  DATA  LOCATED  IN  THIRD  PAGE  OF  MEMORY 


9389 

546 

ORG  7690 

8308  84 

8381  4D495333 
8385  28282828 
0389  28282828 
0380  282828 

547 

DB 

4H,'MSS 

8318  83 

0311  484954 

548 

D8 

3H,'HIT' 

8314  85 

0315  46285245 
0:19  53 

S49FAL1: 

08 

em  'F  res' 

8318  85 

8316  46284441 
031F  54 

558  FAL2 

08 

85H>  'F  OAT' 

0328  83 

03a  4C4F57 

551 

08 

3H»  'LON' 

0324  85 

0325  4620494E 
8329  54282828 
0320  282828 

SS2  FAL3 

08 

8T»t'F  INT 

0338  89 

0331  4C4F5728 
8335  52494748 
0339  54282828 
0330  282828 

353 

08 

9M, 'LON  RIGHT 

0348  85 

0341  52494748 
0345  54282828 
0349  28282820 
8340  282828 

554 

08 

96  'RIGHT 

83»  8A 

0351  48494748 
9355  28524947 
8359  48542828 
8350  286828 

555 

08 

180.  'HIGH  RIGHT 

ISIS-11  ACS-48APM1  MACAO  ASSMIER.  V2.6 
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SOURCE  STATEMENT 
08  4N.  'Hl» 


06  9H  HIGH  LEFT 


06  4H.  'LEFT 


06  OH, 'LON  LEFT 


06  13P-  'HISS-TOO  LATE  ' 


06  9H  'NO  TRROET 


06  140. 'TARflET  IGNORED  ' 


562  SIGNON:  06  150.  'RIFLE  5IIUAT0R' 


564  PROPT  06  150.  'STRAP  IN  PUCE?' 


565  DONE:  06  1®.'  TEST  COMPLETE' 


LX  OBJ 

6366  64 
8361  48494746 

6365  26282626 
0369  26212626 
8360  262626 
6376  69 

6371  48494746 
6375  264C4546 
8379  54202820 
6370  262626 
0386  64 
8381  4C454654 
6385  26262626 

6389  26262628 

6380  262626 
6396  68 

0391  4C4F5720 
6395  4C454654 
6399  26282826 

6390  262626 

6366  60 

03*1  40495353 
03A5  2DS44F4F 
6369  264C4154 
0360  452626 

6388  69 

6381  4E4F2064 
0385  41524745 

6389  54282826 
6380  282828 
63C0  6E 

03C1  54415247 
63C5  45542649 
6309  474E4F52 
0300  454426 
6306  0F 
6!01  5249464C 
6305  45265349 
6309  40554C41 
0300  544F52 
03E0  OF 
63E1  53545241 
63E5  56264941 
63E9  26564C41 
03EO  43453F 
03F6OF 
63F1  26205445 
63F5  53542643 
63F9  4F40564C 
03FO  455445 


COAT  0633  CCHT1  «K?  C0NT2  6113  COUTH  WW  CJJTB  K9F  CWTH  «3E  C«J  1150 

DtiAV  H40  PELAV16130  OLOOP  6152  DOC  63F6  ESCAfE  6055  EXTINT  0663  FAIL  62AD  FHi  8314 

0-12 


i 


PhOE  13 


t 


*> 
4  p 


\  - 


i 
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FPL2  8310  FW3  8324 
L00P1  8138  LOOK  8262 
LOOPZ  816E  MW  8U5 
OUTPUT  8138  mm  83E8 
RL0QP5  8248  SHTCOD  8281 
TEST  8230  TIINRT  8888 


FINIS  8878  HERE  8883 
LfltfO  826E  LOOPJ  0287 
NIN01R  8283  NSW8T  8188 
fULSIT  8199  OUEFUL  1868 
SIGMON  8308  SNLOCP  82CD 
TIHINT  8887  T0L8TE  8292 


INIT  8818  INROUT  8858 
LOOK  8289  L008L  8268 
CXT1  8184  NOIICN  814C 
RIFLOP  8180  RIFSIN  8218 
ST8RT  8828  STROUT  8127 
WRIT  8827 


LOCSET  8118  LOOK  8169 
LOOP*  824E  LOOPV  8186 
.NOINT  8290  NOINTR  8188 
RL0QP1  8242  RLOOP2  8244 
T8B  8114  TMtIGN  8260 


8SSEIBLV  COMPLETE,  NO  ERRORS 


H 


* 

1 


-LOCATE  *TfiVtST.  TMP^TO *  F1*TtST ' SYMBOLS  LINES  MAP  PRINK  FI  1ST  PPT 

SYMBOL  TABLE  OF  MODULE  TST 
REMO  FROM  FILE  Fl-.TST.  TMP 
WRITTEN  TO  FILE  :F1:TST 

VALUE  TVPE  SYMBOL 


MOD 
C1BFH  SYM 
C001H  SYM 
C001H  LIN 
C001H  LIN 
C004H  LIN 
C007M  LIN 
C00AH  LIN 
C80DH  LIN 
C010H  LIN 
C013H  LIN 
MOD 
C1BFH  SYM 
CO00H  SYM 
3900H  SYM 
C018H  SYM 
C018H  SYM 
3901H  SYM 
C020H  SYM 
3902H  SYM 
3903H  SYM 
C08DH  SYM 
C014H  SYM 
C016H  SYM 
3904H  SYM 
3906H  SYM 
3908H  SYM 
330AM  SYM 
C0DDM  SYM 
C138H  SYM 
C018H  LIN 
C018H  LIN 
C818H  LIN 
C01CH  LIN 
COIFH  LIN 
C02GH  LIN 
C024M  LIN 
C033H  LIN 
C041H  LIN 
C043H  LIN 
C04AH  LIN 
COS1H  LIN 
C03FH  LIN 
C064H  LIN 
C06BH  LIN 
C072M  LIN 
C080H  LIN 
C083H  LIN 
C08CH  LIN 
C88DH  LIN 
C08DH  LIN 
C030H  LIN 
C034M  LIN 
C0S9H  LIN 
C03EH  LIN 
C0A3M  LIN 
C0A7H  LIN 


TESTMODULE 

MEMORY 

TEST 

14 

13 

16 

1? 

18 

19 

28 

21 

TESTPROCMOOULE 

MEMORY 

TSTCHECK 

N 

DONE 

LEDON 

K 

FAIL 

J 

IODATA 

IOTEST 

LOWLIMIT 

HIOHLIMIT 

INITIALTIME 

FINALTIME 

ELAPSEDTIME 

I 

TIMERTEST 

USARTTEST 

41 

42 

43 


tklHUI  Uif4 

- T3 - 

C0B1H  LIN 

75 

C0B6H  LIN 

76 

COBAH  LIN 

77 

COBFH  LIN 

78 

C0C4H  LIN 

79 

C0C9H  LIN 

80 

C0CDH  LIN 

81 

C0D2H  LIN 

82 

COD7H  LIN 

83 

C0DCH  LIN 

85 

C0DDH  LIN 

90 

C0DDH  LIN 

91 

COE0H  LIN 

92 

C0E5H  LIN 

93 

C0EBH  LIN 

94 

C0F9H  LIN 

95 

COFEH  LIN 

96 

C105H  LIN 

97 

01GBH  L IN 

98 

C117H  LIN 

99 

C121H  LIN 

100 

C126H  LIN 

101 

C132H  LIN 

102 

C137H  LIN 

102 

i  138H  LIN 

106 

C13SH  LIN 

187 

C13BH  LIN 

108 

C14SH  LIN 

109 

C143H  LIN 

110 

C1.48H  LIN 

111 

I..14CH  LIN 

112 

C151H  LIN 

113 

L  i'SEH  LIN 

114 

Cl  BOH  LIN 

115 

MOD 

RAMTST 

i..  168H  SVM 

LOOP 

C184H  SVM 

LOOPA 

i  JL7FM  SVM 

RAMFAL 

L LE1H  SYM 

RAMTST 

MOD 

ROMTST 

C1H9H  SYM 

CONTZ 

i.  L94H  SYM 

LOOPA 

C18EH  SYM 

ROMTST 

MOD 

SBCTIM 

i.iBfcH  SYM 

LOOPA 

LJLBtiH  SYM 

LOOPB 

iLBSH  SVM 

SBCTIM 

MEMORY  MAP  OF  MODULE  TST 
READ  FROM  FILE  :  FI :  TST  TMP 
WRIT  FEW  TO  FILE  :  FI:  TST 
MODULE  START  ADDRESS  0O26H 

i,THRT  STOP  LENGTH  RE l  NAME 

U.1O0H  C08CH  SDH  A  ABSOLUTE 

i ,u:f:DH  C16EH  132H  A  ABSOLUTE 


PUH-  S8  COWILBr 


ISIS-11  fVn-86  VI 1  COMPILATION  OF  MODULE  TESTMODUlE 
OBJECT  NODULE  PLACED  IN  :  FI  .  TESTER  OBJ 

COMPILER  INVOKED  BV:  PU»  :Fl: TESTER  PLN  OEBUG  IXREF  DATE  (12  OCT  78) 


/*  THIS  TEST  PROGRAM  HAS  WITTEN  BV  TON  RIORDAN  ITS  FUNCTION 
IS  TO  ACT  AS  THE  DRIVER  F*  THE  TEST  PROCEDURES  AS  CALLED  */ 

TESTfNOOOE:  DO. 


2  1  RANTST:  PROCEDURE  EXTERNAL 

i  2  END  RANTST; 

4  1  RONTST:  PROCEDURE  EXTERNAL; 

5  2  END  RONTST; 

6  1  I QUEST:  PROCEDURE  EXTERNAL; 

7  2  END  IOUEST; 

8  1  TINERfTEST:  PROCEDURE  EXTERNAL; 

9  2  EM)  THCRITEST; 

18  1  USARTITEST :  PROCEDURE  EXTERNAL; 

11  2  END  USARTITEST, 

12  1  DONE  PROCEDURE  EXTERNAL 

IT  2  END  DONE; 

14  1  TEST  PROCEDURE  PUBLIC; 

15  2  CALL  RANTST; 

16  2  CALL  RONTST; 

17  2  CALL  IOUEST, 

18  2  CALL  TINERUEST; 

19  2  CALL  USARTITEST; 

20  2  CALL  DOW; 

21  2  END  TEST; 


22  1 


END  TESTfNODULE; 


MODULE  INFORMATION 

CODE  AREA  SIZE  *  0013H 
VARIABLE  AREA  SIZE  *  0000H 
MAXIMUM  STACK  SIZE  *  00B2H 
29  LINES  READ 
0  PROGRAM  ERROR(S) 

END  OF  Pl/N-80  CUMULATION 


E-3 


ISIS-11  PL/n-80  V3. 1  CUMULATION  of  nodule  tesprocnobjle 
OBJECT  NODULE  PMCED  IN  :F1  TSTPRC  OBJ 

COMPILER  INVOKED  BV:  PLM8B  :F1:  TSTPRC.  PLN  I>*EF  DEBUG  DBTE  <5  JUL  79) 


1  TESTIPROCIHODULE:  DO: 

2  1  DECLARE  TSTCHECK  BVTE  PUBLIC  AT  (8C88BH)  DATA<1); 

UCLIST 

<8  1  OECLARE  N  BVTE; 

19  1  DECLARE  NORD  LITERflLLV  'ADDRESS' 

4B  1  DECLARE  OONTCARE  LITERALLY  'HH',  FOREVER  LITERALLY  'WILE  1', 

DIAONOSTICtLED  LITERALLY  '8D6H'; 

41  1  DONE:  PROCEDURE  PUBLIC; 

42  2  LEDtON: 

DO  FOREVER; 

43  OUTPUT(DIABNOSTICILED’»*DCMTICARE; 

44  3  END  LEDTON, 

45  2  END  DONE, 

4c  1  DECLARE  K  BVTE; 

47  l  FAIL:  PROCEDURE! J)  PUBLIC; 

4*  2  DECLARE  J  BYTE; 

49  2  00  K=1  TO  J; 

50  i  00  N=1  TO  10; 

51  4  OUTPUT (DIAGNOSTIC$LED)=OONTCARE, 

52  4  CALL  S0CTMK10); 

51  4  END; 

54  1  DO  N=1  TO  40; 

55  4  CALL  SBCTIM<125); 

5c  4  EM); 

V  3  EM); 

■At  2  DO  N=1  TO  80; 

*  I  CALL  SBCTIM<250);  /•  MBIT  2  SECONDS  TICN  00  ON  N1TH  TEST  */ 

1  END; 

-1  2  END  FAIL, 

1  OECLARE  IOTFAIL  LITERALLY  '3';  /*  3  FIAS»€S  FOR  AN  I/D  FAILURE  */ 

i>  1  DECLARE  P0RT1  LITERALLY  '0E4H',  P0RT2  LITERALLY  'SEW'. 

P0RT3  LITERALLY  '8E6H',  PORTE  LITERALLY  'BEAN'; 

64  1  DECLARE  IOOATA  BYTE; 

t.s  i  IOITEST  PROCEDURE  PUBLIC; 

cc  2  00; 

c7  i  CALL  PORTtSET,  /*  SET  UP  10  PORTS  1A2  AS  IMW5  316  RS  OUTPUTS  •/ 

w  i  OUTPUT  (PORn>««M;  /•  PORT  3  HILL  I  WERT  OUTPUT  THEN  PORT  1  WILL  REINVERT  IT  •/ 

69  1  IODATIWNPUKPORTl); 

78  1  IF  IGOATAOOBH  T)€N 

71  1  CALL  FAIKIOtFAIL); 

72  3  OUTPUT  (P0RT3  >«MFFH; 

7;  j  lQOATf*INPUT<PORTl>; 

74  r  IF  IODATAOBFFH  THEN 


;jt-  I-  riwt  £ 


75  3  CALL  FAIL(IOIFAII); 

76  3  OUTPUT <PORT6)=00H;  7*  TOT  6  INVERTS  OUTPUT  B»(T  PORT  2  MILL  MOT  REItfftRT  *7 

77  3  100ATf*lNPUT<PORT2), 

78  3  IF  IOOATAO0FFH  TTCN 

79  3  CALL  FAILUOfFAlL). 


86  3 

81  3 

82  3 

83  3 

34  3 

85  2 

86  1 

87  1 

88  1 

89  1 

90  1 

91  2 

92  2 

93  2 

94  2 

95  3 

96  3 

97  2 

98  2 

99  2 
100  2 
101  2 
102  2 

103  2 

184  l 

105  1 

106  1 

107  2 

188  2 
109  2 

118  2 
1X1  2 


u6  1 


OUTPUT  (P0RT6)^FFM; 

IOOATA*INPUT<PORT2>; 

IF  IODATAO00H  THEN 
CALL  FAIL(IOIFAIL). 

END- 

END  IOITEST; 

DECLARE  LOMU  I  HIT  WORD  DATA<1O0>,  H16MLINIT  MORD  DATA<300>; 
OECLARE  TINER8FA1LHGN  LITEPALLV  '4',  THERfFAILIHIGH  LITERALLY  ' 
DECLARE  ( INITiaTIHE-  FINALTHC>  ELAPSEDTIHE)  MORD, 

DECLARE  I  BYTE; 

TIMERITEST:  PROCEDURE  PUBLIC- 

CALL  TIWKSTART;  7*  START  TIMERS  0  AND  1  *7 
CALL  S0CTIH(250);  7*  GIVE  TIMER  THE  TO  BEGIN  FUNCTIONING  *7 
INITiafTnC  *  CLOCHREAD- 
DO  1=1  TO  40;  /«  MAIT  FOR  ONE  SECOtt  *7 
CALL  SBCTIN<250); 

Ett; 

FINALTIHE=CLOCKREAD; 


/*  COUNTERS  ARE  DOW  COUNTERS  *7 


ELAPSEDTHC  =  INITiaTIfC  -  FINALTTAE; 
IF  ELAPSEDTIHE  <  LOMfLINIT  THEN 
CALL  FAIL(THERtFAlLtLON); 

IF  ELAPSEDTIHE  >  HIGHRIHIT  TKN 
CALL  FAIL(TIHERIFAILIH!W); 

E»  TiaWTEST; 


DECLARE  USARTIFAIL  LITERALLY  '6'; 

OECLARE  USARTISTATUS  LITERALLY  'BEDH',  USARTfOATR  LITERALLY  'OKU'; 

USARTfTEST  PROCEDURE  PUBLIC 
CALL  VOTRAXITIHERi 

CALL  S0CTIW100),  7*  HAKE  CERTAIN  TIICR  HAS  STARTED  •/ 

CALL  VOTRAKfSET,  7*  SET  BAUD  RATE  AN>  BIT  PATTERN  *7 

CALL  SBCTIH(100).  7*  HATE  CERTAIN  USART  HAS  COMPLETED  INTERNAL  SETUP  *7 

OUTPUT (USART<DATA)=101010186;  7*  SEJ®  OUT  TEST  PATTERN  *7 

CaL  SBCTIH<2B);  7*  MAIT  APPRO*  L  04  HSEOHISART  SHOULD  BE  DO*  *7 

/*  N  B  THIS  HUST  BE  LONG  ENOUGH  EVEN  WITHOUT  MAIT  STATES  *7 
IF  NOT  SHR(INPUT(USART*;TATUS),2)  THEN 
CALL  FAIl(USART»FAll>; 

END  USARTfTEST; 


END  TESTfPROCfHODULE; 


H«««  E  INFORMATION 


CODE  AREA  SIZE  *  014OH  3330 


•UL  i  7 


VARIABLE  AREA  SIZE  =  6M6H  11D 

MAXIMUM  STACK  SIZE  =  0804M  40 

08  LIMES  READ 
8  PROGRAM  ERROR(S) 

END  OF  PL/M-80  COMPILATION 


ASM90  FI: RAHTST  SRC  DEBUG  HACROFILE  TITUE-  '11  OCT  78') 


ISIS-11  8000/8063  MACRO  ASSEWLER.  V2  8 
^  *11  OCT  78 


(WIT  $T  PAGE  1 


LOC  OBJ 

SEO 

SOURCE  STATE  (CUT 

1 

NAME 

RAHTST 

2 

STKLN 

OH 

3 

EXTRN 

DOC 

4 

C 

PUBLIC 

RAHTST 

0 

6 

CSEG 

0008  01 

7  RAHTST 

POP 

0 

(£T  RETURN  ADDRESS  THAT  MRS  PUSHED 

8 

BY  TIC  CALL  AND  SAVE  IT  IN  D€  ORE 

9 

REG  PAUL  IT  MILL  BE  VALID  IF  RR1 

18 

IS  OKAY,  IN)  UNUSED  0TTCAM1SE 

8001  010OF8 

11 

LXI 

8.0F8OOH 

INCREMENTING  THIS  VALUE  AND  OCCKING 

12 

FOR  OVERFLOW  HILL  IHJICATE  (HEN  TEST 

13 

IS  FINISHED 

8004  210838 

14 

LX  I 

H/3800H 

START  OF  RAH 

8007  OF 

15  LOOP: 

XRA 

A 

h008  77 

16 

MOV 

(LA 

STORE  80H  AT  LOCATION 

*809  7t 

17 

HOV 

R.H 

READ  OB  FRON  SANE  LOCATION 

«m  B  7 

18 

ORA 

A 

SET  FLAGS 

0006  C21E00 

C 

19 

JN2 

RAHFAL 

IF  BB  NOT  READ  BACK  JUf»  U  FAILURE  ROUTINE 

OOOE  2F 

20 

CAR 

IF  PASSES  THEN  ACOAKFH 

OOOF  77 

21 

HOV 

HA 

STONE  FFH  AT  LOCATION 

0010  7E 

22 

HOV 

(LH 

READ  FFH  FROI  SAME  LOCATION? 

0O11  3C 

23 

INR 

A 

IF  FFH  READ  BACK  ACCUM8 

0012  C21E00 

C 

24 

JHZ 

RAHFAL 

IF  FFH  NOT  READ  BACK  JUN»  TO  FAIL  ROUT 

0015  23 

25 

IIK 

H 

ADDRESS  NEXT  NENORV  LOCATION 

0016  03 

26 

UK 

B 

OCCK  FOR  TEST  COMPLETE 

0017  78 

27 

HOV 

(LB 

0018  87 

28 

ORA 

A 

0019  C20780 

C 

29 

JN2 

LOOP 

0O1C  05 

38 

PUSH 

0 

PUT  RETURN  ADDRESS  BACK  ON  STACK. 

WID  C9 

31 

RET 

001E  0306 

32  RAHFAL 

OUT 

0D6M 

FLASH  LED  1  TINE  TO  INDICATE  RAN  FAILURE 

0026  01E8F0 

33 

LXI 

8#  6500A 

DELAY  APPROXIMATELY  1  SEC  THEN  JUMP  TO 

►•323  06 

34  LOOPA: 

OCX 

8 

DOC  ROUTINE  THIS  IS  DOC  BECAUSE  TIC 

••324  00 

35 

NOP 

REST  OF  THE  TESTS  CAMOT  BE  RUN  RELIABLY 

0025  78 

36 

HOV 

A.E 

UNLESS  THE  RAN  IS  WORKING  PROPERLY 

0026  67 

37 

ORA 

A 

*27  C22308 

C 

38 

JHZ 

LOOPA 

8020  C 30O00 

E 

39 

JHP 

DOC 

46 

END 

, 

ik-Lic  symbols 

RAMTST  C  0880 
b.iEWRL  SYMBOLS 

'w«  e  tm 


C'f't  SYMBOLS 

■M£  E  0060 


C  0867  LOOPA  C  062  RAHFAL  C  661E  RAHTST  C 


0 


SEHBLV  COHKETF,  HO  ERRORS 


ASM*  :F1  ROBTST.  SRC  C€0UG  BACROFILE  HTLE<18  JUH  79  > 


ISIS-11  800078085  HfiCRO  KSEWLER-  V2  0  MJWTST  PAGE  i 

18  JUM  79 


LO'  OBJ  SEQ  SOURCE  STATEIWT 


1 

me 

ROBTST 

2 

STKLN 

8H 

3 

EXTRA 

FAIL 

4 

PUBLIC 

ROBTST 

5 

€ 

CSEG 

7 

0000  210000 

8  ROBTST: 

LX! 

H.8H 

*003  110000 

9 

LX1 

D.8M08H 

0C**  0E02 

10  LOOM 

BVl 

C.2 

0*00  7E 

11 

BOV 

A>B 

**09  47 

12 

BOV 

8.  A 

*#0fi  E8 

13 

XCHG 

■<m  7E 

14 

BO V 

A.B 

.Vjir  DO 

DO 

15 

CM 

B 

W0O  C01BO0 

C 

16 

JZ 

C0N1Z 

PSM  f 

00I8  F5 

17 

PUSH 

*011  C5 

18 

PUSH 

8 

•M2  P5 

19 

PUSH 

D 

*><13  Ej 

2* 

PUSH 

H 

W14  CO0080 

E 

21 

CALL 

FAIL 

**17  El 

22 

POP 

H 

ms  w 

23 

POP 

D 

*019  Cl 

24 

POP 

B 

**1A  FI 

25 

POP 

PSN 

*016  1; 

26  COMTZ 

INX 

D 

*01 1  22 

27 

INK 

H 

0n  10  7* 

28 

BOV 

AO 

•ME  E6 

29 

XCHG 

•«iF  FEW 

30 

CPI 

14H 

*1021  C  2*00* 

C 

31 

M 

LO KM 

•<024  C* 

32 

RET 

33 

END 

/START  OF  PROQRRN  ROB 
,ST‘HT  OF  TEST  ft* 

,2  I  uses  INDIChTES  ROB  FAIL' RE 

;Rfrio  mam  mm 

;SW«  BVTE 

;Rt*D  TEST  ROB 
ft-  B 

’  If  ROB  THEN  FPIU«  HAS  OCC  BED 


;liXT  ROB  LOCAT  ONS 


i  IS  TEST  CWHE  V 


rUUiC  SVMOIS 

Kmisf  t  00*0 

EV  EWWL  SVBMLS 
MIL  E  *00* 

*.K4  *>  SVBPOLS 

m»,(?  c  *018  FAIL  E  0080  LOOPB  C  0»  ROBTST  C  8000 


tf.  4-MBLV  COBPLETE/  HO  ERRORS 


E-8 


0SH80  FI: SBC! Ill  SRC  OEBUG  H0CROFILE  TITLEC23  OCT  78') 


ISIS-II  8606*665  NRCRO  flSSEWLER,  V2  0  SBCTIN 

23  OCT  78 

IOC  061  SE9  SOURCE  STATE  HINT 


1 

NfVC 

SBCTIN 

2 

STKLN 

0H 

3 

PUBLIC 

SBCTIN 

4 

5 

CSEG 

ww 

OfAQ 

wW 

6  SBCTIN: 

NVI 

8, 10 

0802 

78 

7  LOOPS: 

NOV 

6.6 

0003 

30 

8  LOOPS 

OCR 

0 

iw 

C20300  C 

9 

JNZ 

LOOPS 

Wi 

00 

16 

OCR 

C 

•mW) 

C20200  C 

11 

JIG 

LOOPS 

CdM30 

Ww 

C9 

12 

RET 

13 

END 

fueuc  SYNBOLS 
sBCTin  c  0000 


EXTERN*  SYNBOLS 


USER  SVNBOLS 

LOOFfl  C  0803  LOOPS  C  0602  SBCTIN  C  6000 
6SSEWLV  COWLETE.  NO  ERRORS 


PROE  1 


E-9 


